Main Text Figures

comb_epr_plot = comb_preds %>% 
  filter(metric == "EPR") %>% 
  ggplot() +
  geom_point(aes(temp, rate, colour = curve_id), 
             filter(comb_d, metric == "EPR"), 
             size = 1.5, alpha = 0.6, 
             position = position_jitter(width = 0.5, height = 0)) +
  geom_ribbon(aes(temp, ymin = conf_lower, ymax = conf_upper, group = curve_id), 
              filter(comb_boot_conf_preds, metric == "EPR"), 
              fill = 'grey60', alpha = 0.3) +
  geom_line(aes(temp, .fitted, col = curve_id), linewidth = 2) +
  scale_colour_manual(values = comb_colors) + 
  labs(x = "Temperature (degrees C)", 
       y = "Egg Production Rate \n(eggs/female/day)",
       colour = "Month") + 
  theme_matt(base_size = 12)

comb_hs_plot = comb_preds %>% 
  filter(metric == "HF") %>% 
  ggplot() +
  geom_point(aes(temp, rate, colour = curve_id), filter(comb_d, metric == "HF"), size = 1.5, alpha = 0.6, 
             position = position_jitter(width = 0.5, height = 0)) +
  geom_ribbon(aes(temp, ymin = conf_lower, ymax = conf_upper, group = curve_id), filter(comb_boot_conf_preds, metric == "HF"), fill = 'grey60', alpha = 0.3) +
  geom_line(aes(temp, .fitted, col = curve_id), linewidth = 2) +
  #scale_color_brewer(type = "div", palette = 5, direction = -1) + 
  #scale_color_viridis_d(option = "mako") + 
  scale_colour_manual(values = comb_colors) + 
  labs(x = "Temperature (degrees C)", 
       y = "Hatching Success \n(%)",
       colour = "Month") + 
  theme_matt(base_size = 12)

comb_rf_plot = comb_preds %>% 
  filter(metric == "RF") %>% 
  ggplot() +
  geom_point(aes(temp, rate, colour = curve_id), filter(comb_d, metric == "RF"), size = 1.5, alpha = 0.6, 
             position = position_jitter(width = 0.5, height = 0)) +
  geom_ribbon(aes(temp, ymin = conf_lower, ymax = conf_upper, group = curve_id), filter(comb_boot_conf_preds, metric == "RF"), fill = 'grey60', alpha = 0.3) +
  geom_line(aes(temp, .fitted, col = curve_id), linewidth = 2) +
  #scale_color_brewer(type = "div", palette = 5, direction = -1) + 
  #scale_color_viridis_d(option = "mako") + 
  scale_colour_manual(values = comb_colors) + 
  labs(x = "Temperature (degrees C)", 
       y = "Production \n(offspring/female/day)",
       colour = "Month") + 
  theme_matt(base_size = 12)

comb_tsc = ggplot(comb_surv, aes(x=Temp, y=Surv, colour=Month)) + 
  geom_point(size=1.5, position=position_jitter(width=0.1, height=0.03)) +
  xlab("Stress Temperature")+
  ylab("Survivorship \n(proportion survived)")+
  labs(colour = "Month") + 
  geom_hline(yintercept = 0.5, linetype = "dashed") +
  geom_smooth(method = "glm", method.args = list(family = "binomial"), se=T, linewidth = 2) +
  scale_y_continuous(breaks = c(0,1)) + 
  #scale_color_brewer(type = "div", palette = 5, direction = -1) + 
  #scale_color_viridis_d(option = "mako") + 
  scale_colour_manual(values = comb_colors) + 
  theme_matt(base_size = 12)

ggarrange(comb_epr_plot, comb_hs_plot, comb_rf_plot, comb_tsc, 
          ncol = 2, nrow = 2,
          common.legend = T, legend = "bottom", labels = "AUTO")

combined_opt_coll = comb_params %>% 
  filter(metric == "RF" & term == "topt") %>% 
  ggplot(aes(x = growth_temp, y = estimate, shape = species)) + 
  geom_smooth(data = filter(comb_params, metric == "RF" & term == "topt" & curve_id != "November_2"),
              method = "lm", colour = "grey50") + 
  geom_point(size = 3, stroke = 1) + 
  scale_shape_manual(values = c(16,21)) + 
  ylab("Optimum (°C)") + 
  xlab("Collection Temperature (°C)") + 
  labs(colour = "Month") + 
  theme_matt(base_size = 12)

combined_opt_diff = comb_params %>% 
  filter(metric == "RF" & term == "topt") %>% 
  ggplot(aes(x = growth_temp, y = margin, shape = species)) +
  geom_hline(yintercept = 0, linewidth =1, linetype = "dashed") +
  geom_smooth(data = filter(comb_params, metric == "RF" & term == "topt" & curve_id != "November_2"),
              method = "lm", colour = "grey50") + 
  geom_point(size = 3, stroke = 1) + 
  ylab("Margin (°C)") + 
  xlab("Collection Temperature (°C)") + 
  scale_shape_manual(values = c(16,21)) + 
  theme_matt(base_size = 12) 

combined_ld_coll = ggplot(combined_tolerance, aes(x = Coll_temp, y = LD50, shape = species)) + 
  geom_smooth(method = "lm", colour = "grey50") + 
  geom_point(size = 3, stroke = 1) + 
  scale_shape_manual(values = c(16,21)) + 
  ylab("Thermal Tolerance (°C)") + 
  xlab("Collection Temperature (°C)") + 
  theme_matt(base_size = 12)

combined_ld_diff = ggplot(combined_tolerance, aes(x = Coll_temp, y = margin, shape = species)) +
  geom_smooth(method = "lm", colour = "grey50") + 
  geom_point(size = 3, stroke = 1) + 
  scale_shape_manual(values = c(16,21)) + 
  ylab("Warming Tolerance (°C)") + 
  xlab("Collection Temperature (°C)") + 
  theme_matt(base_size = 12)

ggarrange(combined_opt_coll, combined_opt_diff, combined_ld_coll, combined_ld_diff, ncol = 2, nrow = 2, common.legend = T,
          legend = "bottom", labels = "AUTO")

F0_rf_summary$month = factor(F0_rf_summary$month, levels = c("June", "August", "November"))
F0_rf_summary$duration = factor(F0_rf_summary$duration, levels = c("short", "long"))
F0_dur_summary$month = factor(F0_dur_summary$month, levels = c("June", "August", "November"))

param_list = list("colour" = "black",
                  "width" = 0.2) 

RF_short_db = plot(F0_RF_short, 
                   axes.title.fontsize = 10,
                   tick.fontsize = 10,
                   effsize.markersize = 3,
                   swarmplot.params = param_list,
                   rawplot.ylabel = "Production",
                   theme = ggpubr::theme_pubr())

RF_long_db = plot(F0_RF_long, 
                  axes.title.fontsize = 10,
                  tick.fontsize = 10,
                  effsize.markersize = 3,
                  swarmplot.params = param_list,
                  rawplot.ylabel = "Production",
                  theme = ggpubr::theme_pubr())

b1 = ggplot() + theme_pubclean() + ggtitle("          Short Heat Waves")
b2 = ggplot() + theme_pubclean() + ggtitle("          Long Heat Waves")
F0_fecundity_plot = ggarrange(b1, RF_short_db, b2, RF_long_db, ncol = 1, nrow = 4, heights = c(0.1, 1, 0.1, 1))
x.axis_labels = c("1" = "short", "2" = "long", "3" = "short", "4" = "long")

F0_grid = F0_rf_summary %>% 
  mutate(month = fct_relevel(month, "June", "August", "November")) %>% 
  ggplot(aes(x = duration, y = difference, colour = trait, shape = duration)) + 
  facet_grid(. ~ month) + 
  geom_hline(yintercept = 0, colour = "black", linewidth = 0.3) +
  geom_errorbar(aes(ymin = bca_ci_low, ymax = bca_ci_high), width = 0, linewidth = 1.3) + 
  geom_point(size = 5, fill = "white") + 
  scale_colour_manual(values = c("body size" = "grey75", "production" = "black")) + 
  scale_shape_manual(values = c("long" = 16, "short" = 21)) + 
  scale_x_discrete(labels= x.axis_labels) +
  ggtitle("Direct Effects (F0)") + 
  xlab("") +
  ylab("Effect Size\nHeatwave - Control") + 
  ylim(-1,1.1) + 
  theme_bw(base_size = 12) + 
  theme(panel.grid = element_blank(),
        axis.text = element_text(colour = "black"),
        axis.text.x = element_text(angle = -45, hjust = 0, vjust = 0.5),
        legend.position = "none")

F1_summary = bind_rows(F1_rf_effect_size, F1_bs_effect_size) %>% 
  dplyr::select(variable, difference, 
                bca_ci_low, bca_ci_high, 
                month, duration, trait, generation, off_temp) %>% 
  mutate("order_code" = paste(trait, duration, sep = "_"),
         "order_number" = case_when(
           order_code == "production_short" ~ 1,
           order_code == "production_long" ~ 2,
           order_code == "body size_short" ~ 3,
           order_code == "body size_long" ~ 4),
         month = fct_relevel(month, "June", "August", "November"))

F1_summary$order_number = factor(F1_summary$order_number, levels = c(1,2,3,4))
F1_grid = ggplot(F1_summary, aes(x = order_number, y = difference, colour = trait, shape = duration, group = trait)) +
  facet_grid(off_temp ~ month, ) + 
  geom_hline(yintercept = 0, colour = "black", linewidth = 0.3) +
  geom_line() + 
  geom_errorbar(aes(ymin = bca_ci_low, ymax = bca_ci_high), width = 0, linewidth = 1) + 
  geom_point(size = 3, fill = "white") + 
  scale_colour_manual(values = c("body size" = "grey75", "production" = "black")) + 
  scale_shape_manual(values = c("long" = 16, "short" = 21)) + 
  xlim(0.5,4.5) + 
  scale_x_discrete(labels= x.axis_labels) +
  xlab("") +
  ylab("Effect Size\nHeatwave - Control") + 
  ggtitle("Transgenerational Effects (F1)") + 
  theme_bw(base_size = 12) + 
  theme(panel.grid = element_blank(),
        strip.background.x = element_blank(),
        strip.text.x = element_blank(),
        axis.text = element_text(colour = "black"),
        axis.text.x = element_text(angle = -45, hjust = 0, vjust = 0.5))

ggarrange(F0_grid, F1_grid, nrow = 2, ncol = 1, heights = c(0.45,1), common.legend = T, legend = "right")

Supplemental Information

#field tpc parameters
comb_params %>%  
  mutate(curve_id = fct_relevel(curve_id, c("January", "February", "March", "April", "May", "June", 
                                            "July", "August", "September", "October", "November_1", "November_2"))) %>% 
  ggplot(aes(x = curve_id, y = estimate, colour = species)) +
  facet_wrap(term~metric, scales = 'free_y') + 
  geom_point(size = 4) +
  geom_linerange(aes(ymin = conf_lower, ymax = conf_upper)) +
  scale_colour_manual(values = c("royalblue1", "indianred2")) + 
  labs(x = "Month",
       y = "Parameter Estimate",
       colour = "Species") + 
  theme_bw(base_size = 16) +
  theme(panel.grid = element_blank(),
        axis.text.x = element_text(angle = 315, hjust = 0, vjust = 0.5))

#field tpc parameters
ggplot(comb_params, aes(x = growth_temp, y = estimate, colour = species)) +
  facet_wrap(term~metric, scales = 'free_y') + 
  geom_smooth(data = filter(comb_params, curve_id != "November_2"),
              method = "lm", se = F) + 
  geom_point(size = 4) +
  geom_linerange(aes(ymin = conf_lower, ymax = conf_upper)) +
  scale_colour_manual(values = c("royalblue1", "indianred2")) + 
  labs(x = "Collection Temperature (degrees C)",
       y = "Parameter Estimate",
       colour = "Species") + 
  theme_bw(base_size = 12) +
  theme(panel.grid = element_blank())

comb_params %>% 
  filter(term == "topt") %>% 
  ggplot(aes(x = growth_temp, y = margin, colour = species, group = species)) + 
  facet_grid(metric~., scales = 'free_y') + 
  geom_hline(yintercept = 0) +
  geom_smooth(data = filter(comb_params, term == "topt" & curve_id != "November_2"),
              method = "lm", se = F, linewidth = 1, colour = "black") + 
  geom_point(size = 4) +
  scale_colour_manual(values = c("royalblue1", "indianred2")) + 
  labs(x = "Collection Temperature",
       y = "Safety Margin") + 
  theme_bw(base_size = 18) +
  theme(panel.grid = element_blank())

#Subsequent Rows
F1_hs_effect_size$trait = "success"
F1_hs_effect_size$generation = "F1"

F1_total_effect_size$trait = "epr"
F1_total_effect_size$generation = "F1"

F1_rf_effect_size$trait = "production"
F1_rf_effect_size$generation = "F1"

F1_bs_effect_size$trait = "body size"
F1_bs_effect_size$generation = "F1"

F0_data = bind_rows(F0_hs_summary, F0_total_summary,F0_rf_summary, F0_size_summary) %>% 
  dplyr::select(trait, difference, bca_ci_low, bca_ci_high, month, duration, trait, generation) %>% 
  mutate("order_code" = paste(trait, duration, sep = "_"),
         "order_number" = case_when(
           order_code == "total_short" ~ 1,
           order_code == "total_long" ~ 2,
           order_code == "success_short" ~ 3,
           order_code == "success_long" ~ 4,
           order_code == "production_short" ~ 5,
           order_code == "production_long" ~ 6,
           order_code == "size_long" ~ 7),
         month = fct_relevel(month, "June", "August", "November"),
         trait = fct_relevel(trait, "total", "success", "production", "size"),
         duration = fct_relevel(duration, "short", "long"),
         group_ID = paste(month, trait, sep = "_"))

F0_data$order_number = factor(F0_data$order_number, levels = c(1,2,3,4,5,6,7))


F1_data = bind_rows(F1_total_effect_size, F1_hs_effect_size, F1_rf_effect_size, F1_bs_effect_size) %>% 
  dplyr::select(trait, difference, bca_ci_low, bca_ci_high, month, duration, generation, off_temp) %>% 
  mutate("order_code" = paste(trait, duration, sep = "_"),
         "order_number" = case_when(
           order_code == "epr_short" ~ 1,
           order_code == "epr_long" ~ 2,
           order_code == "success_short" ~ 3,
           order_code == "success_long" ~ 4,
           order_code == "production_short" ~ 5,
           order_code == "production_long" ~ 6,
           order_code == "body size_short" ~ 7,
           order_code == "body size_long" ~ 8),
         trait = if_else(trait == "epr", "total", trait),
         month = fct_relevel(month, "June", "August", "November"),
         trait = fct_relevel(trait, "total", "success", "production", "size"),
         duration = fct_relevel(duration, "short", "long"))


F1_data$order_number = factor(F1_data$order_number, levels = c(1,2,3,4,5,6,7,8))

#Top row - F0 (direct effects)
x.axis_labels = c("1" = "short", "2" = "long", "3" = "short", "4" = "long", 
                  "5" = "short", "6" = "long", "7" = "short", "8" = "long")

F0_grid = ggplot(F0_data, aes(x = duration, y = difference, colour = trait, group = group_ID)) + 
  facet_grid(. ~ month) + 
  geom_line(position = position_dodge(width = 0.7),
            linewidth = 1) + 
  geom_hline(yintercept = 0, colour = "black", linewidth = 0.3) +
  geom_errorbar(aes(ymin = bca_ci_low, ymax = bca_ci_high), width = 0, linewidth = 1, 
                position = position_dodge(width = 0.7)) + 
  geom_point(size = 4, fill = "white", position = position_dodge(width = 0.7)) + 
  scale_shape_manual(values = c("long" = 16, "short" = 21)) + 
  scale_x_discrete(labels= x.axis_labels) +
  scale_colour_manual(values = c("size" = "darkgrey",
                                 "success" = "gold",
                                 "production" = "forestgreen",
                                 "total" = "cornflowerblue")) +  
  xlab("") +
  ylab("Effect Size\nHeatwave - Control") + 
  theme_bw(base_size = 12) + 
  theme(panel.grid = element_blank(),
        axis.text = element_text(colour = "black"),
        axis.text.x = element_text(angle = -45, hjust = 0, vjust = 0.5),
        legend.position = "none")

#Following three rows - F1 (transgeneration / indirect effects)
F1_grid = ggplot(F1_data, aes(x = duration, y = difference, colour = trait, group = trait)) + 
  facet_grid(off_temp ~ month, ) + 
  geom_hline(yintercept = 0, colour = "black", linewidth = 0.3) +
  geom_line(position = position_dodge(width = 0.5),
            linewidth = 1) + 
  geom_errorbar(aes(ymin = bca_ci_low, ymax = bca_ci_high), width = 0, linewidth = 1,
                position = position_dodge(width = 0.5)) + 
  geom_point(size = 3, fill = "white", position = position_dodge(width = 0.5)) + 
  scale_shape_manual(values = c("long" = 16, "short" = 21)) + 
  xlim(0.5,4.5) + 
  scale_x_discrete(labels= x.axis_labels) +
  scale_colour_manual(values = c("size" = "darkgrey",
                                 "success" = "gold",
                                 "production" = "forestgreen",
                                 "total" = "cornflowerblue")) + 
  xlab("") +
  ylab("Effect Size \nHeatwave - Control") + 
  theme_bw(base_size = 12) + 
  theme(panel.grid = element_blank(),
        strip.background.x = element_blank(),
        strip.text.x = element_blank(),
        axis.text = element_text(colour = "black"),
        axis.text.x = element_text(angle = -45, hjust = 0, vjust = 0.5))

ggarrange(F0_grid, F1_grid, nrow = 2, ncol = 1, heights = c(0.35,1), common.legend = T, legend = "right")

effect_corr = F1_summary %>% 
  select(trait, difference, month, duration, off_temp) %>%  
  pivot_wider(id_cols = c(month, duration, off_temp),
              names_from = trait, 
              values_from = difference)

ggplot(effect_corr, aes(x = `body size`, y = production)) + 
  geom_point() + 
  labs(x = "Body Size Effect",
       y = "Production Effect") + 
  theme_matt(base_size = 18)

F0_fecundity_plot

#Effect of heatwave duration WITHIN treatment
F0_dur_summary %>% 
  mutate(month = fct_relevel(month, c("June", "August", "November"))) %>% 
  ggplot(aes(x = month, fill = treatment, y = difference)) + 
  geom_bar(stat = "identity", position = position_dodge(width = 0.9), colour = "black", size = 1) + 
  geom_errorbar(aes(ymin = bca_ci_low, ymax = bca_ci_high),
                width = 0.1, size = 1,
                position = position_dodge(width = 0.9)) + 
  geom_hline(yintercept = 0) + 
  scale_fill_manual(values = c("grey30", "white")) + 
  labs(x = "",
       y = "Effect Size (Hedge's g) \n Long - Short events") + 
  theme_pubr(base_size = 18)

# How does heat wave duration affect transgenerational effects? Reaction norms shown below for effect size comparisons (heatwave - control) for different duration of parental exposure
F1_data %>% 
  dplyr::select(month, duration, off_temp, trait, difference, bca_ci_low, bca_ci_high) %>% 
  mutate("ID" = paste(month, off_temp, trait, sep = "_"),
         month = fct_relevel(month, c("June", "August", "November")),
         duration = fct_relevel(duration, c("short", "long"))) %>% 
  ggplot(aes(x = duration, y = difference, colour = month, group = ID)) + 
  facet_wrap(trait~.) + 
  geom_hline(yintercept = 0) + 
  geom_line(size = 1, position = position_dodge(width = 0.1)) + 
  geom_point(size = 2, position = position_dodge(width = 0.1)) + 
  geom_errorbar(aes(ymin = bca_ci_low, ymax = bca_ci_high),
                size = 0.75, width = 0.1,
                position = position_dodge(width = 0.1)) + 
  labs(x = "Parental Exposure Duration", 
       y = "Effect Size (Hedge's g) \n Heatwave - Control") + 
  ylim(-5,5) + 
  theme_pubr(base_size = 18)

#Pulls out reaction norms where there's a sign change (changes from positive, neutral, or negative between duration groups) 

duration_effects = F1_data %>% 
  dplyr::select(month, duration, off_temp, trait, difference, bca_ci_low, bca_ci_high) %>% 
  mutate("ID" = paste(month, off_temp, trait, sep = "_"),
         month = fct_relevel(month, c("June", "August", "November")),
         duration = fct_relevel(duration, c("short", "long"))) %>% 
  group_by(ID, trait, duration) %>%  
  mutate("zero_diff" = case_when(
    sign(bca_ci_low) == sign(bca_ci_high) ~ "does not overlap zero",
    sign(bca_ci_low) != sign(bca_ci_high) ~ "overlaps zero"
  )) %>% 
  ungroup(duration) %>% 
  mutate("change" = case_when(
    sign(difference)[1] == sign(difference)[2] & zero_diff[1] == zero_diff[2] ~ "Same",
    sign(difference)[1] != sign(difference)[2] & zero_diff[1] == "overlaps zero" & zero_diff[2] == "overlaps zero" ~ "Same",
    sign(difference)[1] != sign(difference)[2] & zero_diff[1] == zero_diff[2] & zero_diff[1] == "does not overlap zero" ~ "Different",
    sign(difference)[1] != sign(difference)[2] & zero_diff[1] != zero_diff[2] ~ "Different",
    sign(difference)[1] == sign(difference)[2] & zero_diff[1] != zero_diff[2] ~ "Different"
  )) %>% 
  arrange(month, off_temp, trait) %>% 
  filter(change == "Different")

select_rnorms = duration_effects %>% 
  dplyr::select(-duration, -difference, -bca_ci_low, -bca_ci_high, -ID, -zero_diff) %>% 
  distinct()

sig_changes = F1_data %>% 
  dplyr::select(month, duration, off_temp, trait, difference, bca_ci_low, bca_ci_high) %>% 
  mutate("ID" = paste(month, off_temp, trait, sep = "_"),
         month = fct_relevel(month, c("June", "August", "November")),
         duration = fct_relevel(duration, c("short", "long"))) %>% 
  filter(ID %in% select_rnorms$ID)

ggplot(sig_changes, aes(x = duration, y = difference, colour = month, group = ID)) + 
  facet_wrap(trait~.) + 
  geom_hline(yintercept = 0) + 
  geom_line(size = 1, position = position_dodge(width = 0.1)) + 
  geom_point(size = 2, position = position_dodge(width = 0.1)) + 
  geom_errorbar(aes(ymin = bca_ci_low, ymax = bca_ci_high),
                size = 0.75, width = 0.1,
                position = position_dodge(width = 0.1)) + 
  geom_label_repel(data = sig_changes %>% filter(duration == "long"), 
                   aes(label = off_temp, 
                       x = duration,
                       y = difference, 
                       color = month),
                   box.padding = 0.5,
                   nudge_x = 0.2,
                   size = 7,
                   show.legend=FALSE) + 
  labs(x = "Parental Exposure Duration", 
       y = "Effect Size (Hedge's g)\nHeatwave - Control") + 
  ylim(-5,5) + 
  theme_pubr(base_size = 18)

rdata = file_list[str_detect(file_list, pattern = ".RData")]
f1_data = rdata[str_detect(rdata, pattern = "F0_", negate = T)] %>% 
  str_split_fixed(pattern = ".RData", n = 2)
f1_data = f1_data[,1]

plot_names = c()
for(i in 1:length(f1_data)){
  plot_name = paste(f1_data[i], "_plot", sep = "")
  plot_names = c(plot_names, plot_name)
  metric = str_split_fixed(plot_name, pattern = "_", n = 4)[,2]
  
  if(metric == "total"){
    label = "Egg Production (per female)"
  }
  
  if(metric == "rf"){
    label = "Production (per female)"
  }
  
  if(metric == "hs"){
    label = "Hatching Success (%)"
  }
  
  if(metric == "bs"){
    label = "Body Size (mm)"
  }
  
  assign(plot_name,
         plot(get(f1_data[i]), 
              effsize.markersize = 2,
              axes.title.fontsize = 9,
              tick.fontsize = 6,
              swarmplot.params = param_list,
              rawplot.ylabel = label,
              theme = ggpubr::theme_pubr()))
}

bs_plots = plot_names[str_detect(plot_names, pattern = "_bs_")]
rf_plots = plot_names[str_detect(plot_names, pattern = "_rf_")]
total_plots = plot_names[str_detect(plot_names, pattern = "_total_")]
hs_plots = plot_names[str_detect(plot_names, pattern = "_hs_")]
ggarrange(June_bs_short_plot, June_bs_long_plot, 
          August_bs_short_plot, August_bs_long_plot,
          November_bs_short_plot, November_bs_long_plot,
          ncol = 2, nrow = 3,
          labels = "AUTO",
          vjust = -0.2)

ggarrange(June_total_short_plot, June_total_long_plot, 
          August_total_short_plot, August_total_long_plot,
          November_total_short_plot, November_total_long_plot,
          ncol = 2, nrow = 3,
          labels = "AUTO",
          vjust = -0.2)

ggarrange(June_hs_short_plot, June_hs_long_plot, 
          August_hs_short_plot, August_hs_long_plot,
          November_hs_short_plot, November_hs_long_plot,
          ncol = 2, nrow = 3,
          labels = "AUTO",
          vjust = -0.2)

ggarrange(June_rf_short_plot, June_rf_long_plot, 
          August_rf_short_plot, August_rf_long_plot,
          November_rf_short_plot, November_rf_long_plot,
          ncol = 2, nrow = 3,
          labels = "AUTO",
          vjust = -0.2)

seasonal_cols = c("June" = "#E69F00", "August" = "#D55E00", "November" = "#0072B2")
F1_fbs$ID = paste(F1_fbs$Month, F1_fbs$Parental_treatment, F1_fbs$Day, sep = "_")
F1_fbs$Month = fct_relevel(F1_fbs$Month, "June", "August", "November")

ggplot(F1_fbs, aes(x = Offspring_temp, y = Size, colour = Day, group = ID)) + 
  facet_grid(Month~Parental_treatment) + 
  geom_jitter(width = 0.5, size = 1.6, alpha = 0.4) +
  geom_smooth(method = "lm", size = 1.4, alpha = 0.2) + 
  scale_x_continuous(breaks = c(12,17,22)) + 
  theme_bw() + theme(legend.position = "right",
                     panel.grid = element_blank())

LS0tCnRpdGxlOiAiRmlndXJlcyBmb3IgU2Vhc29uYWxseSB2YXJpYWJsZSB0aGVybWFsIHBlcmZvcm1hbmNlIGN1cnZlcyBwcmV2ZW50IGFkdmVyc2UgZWZmZWN0cyBvZiBoZWF0d2F2ZXMiCm91dHB1dDogCiAgaHRtbF9kb2N1bWVudDoKICAgICAgICAgIGNvZGVfZm9sZGluZzogaGlkZQogICAgICAgICAgY29kZV9kb3dubG9hZDogdHJ1ZQogICAgICAgICAgdG9jOiB0cnVlCiAgICAgICAgICB0b2NfZmxvYXQ6IHRydWUKICBnaXRodWJfZG9jdW1lbnQ6CiAgICAgICAgICB0b2M6IHRydWUKICAgICAgICAgIHRvY19kZXB0aDogMgogICAgICAgICAgaHRtbF9wcmV2aWV3OiBmYWxzZQplZGl0b3Jfb3B0aW9uczogCiAgY2h1bmtfb3V0cHV0X3R5cGU6IGNvbnNvbGUKLS0tCgpgYGB7ciBzZXR1cCwgaW5jbHVkZT1GQUxTRSwgZmlnLmFsaWduPSJjZW50ZXIiLCBtZXNzYWdlID0gRiwgd2FybmluZyA9IEZ9CmtuaXRyOjpvcHRzX2NodW5rJHNldCgKICBlY2hvID0ga25pdHI6OmlzX2h0bWxfb3V0cHV0KCksCiAgZmlnLmFsaWduID0gImxlZnQiLAogIGZpZy5wYXRoID0gIi4uL0ZpZ3VyZXMvbWFya2Rvd24vIiwKICBtZXNzYWdlID0gRkFMU0UsCiAgd2FybmluZyA9IEZBTFNFLAogIGNvbGxhcHNlID0gVCwKICBkZXYgPSBjKCJwbmciLCAicGRmIikKKQoKc3QuZXJyIDwtIGZ1bmN0aW9uKHgsIG5hLnJtPUZBTFNFKSB7CiAgaWYobmEucm09PVRSVUUpIHggPC0gbmEub21pdCh4KQogIHNkKHgpL3NxcnQobGVuZ3RoKHgpKQp9Cgp0aGVtZV9tYXR0ID0gZnVuY3Rpb24oYmFzZV9zaXplKXsKICBnZ3B1YnI6OnRoZW1lX3B1YnIoYmFzZV9mYW1pbHk9InNhbnMiKSAlK3JlcGxhY2UlIAogICAgdGhlbWUoCiAgICAgIHBhbmVsLmJhY2tncm91bmQgID0gZWxlbWVudF9ibGFuaygpLAogICAgICBwbG90LmJhY2tncm91bmQgPSBlbGVtZW50X3JlY3QoZmlsbD0idHJhbnNwYXJlbnQiLCBjb2xvdXI9TkEpLCAKICAgICAgbGVnZW5kLmJhY2tncm91bmQgPSBlbGVtZW50X3JlY3QoZmlsbD0idHJhbnNwYXJlbnQiLCBjb2xvdXI9TkEpLAogICAgICBsZWdlbmQua2V5ID0gZWxlbWVudF9yZWN0KGZpbGw9InRyYW5zcGFyZW50IiwgY29sb3VyPU5BKSwKICAgICAgbGVnZW5kLnRleHQgPSBlbGVtZW50X3RleHQoc2l6ZT1iYXNlX3NpemUgKiAwLjgpLAogICAgICBsZWdlbmQudGl0bGUgPSBlbGVtZW50X3RleHQoc2l6ZSA9IGJhc2Vfc2l6ZSAqIDAuOCwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBmYWNlID0gImJvbGQiKSwKICAgICAgYXhpcy50ZXh0ID0gZWxlbWVudF90ZXh0KHNpemUgPSBiYXNlX3NpemUpLAogICAgICBheGlzLnRpdGxlID0gZWxlbWVudF90ZXh0KHNpemUgPSBiYXNlX3NpemUgKiAxLjIpLAogICAgICB0aXRsZSA9IGVsZW1lbnRfdGV4dChzaXplID0gYmFzZV9zaXplICogMS41NSkKICAgICkKfQoKaDFfZXByJE1vbnRoID0gZmFjdG9yKGgxX2VwciRNb250aCwgbGV2ZWxzID0gYygiSnVseSIsICJBdWd1c3QiLCAiU2VwdGVtYmVyIiwgIk9jdG9iZXIiLCAiTm92ZW1iZXJfMSIsICJOb3ZlbWJlcl8yIikpCgpodWRzX2gxX2VwciRNb250aCA9IGZhY3RvcihodWRzX2gxX2VwciRNb250aCwgbGV2ZWxzID0gYygiSmFudWFyeSIsICJGZWJydWFyeSIsICJNYXJjaCIsICJBcHJpbCIsICJNYXkiLCAiSnVuZSIpKQoKdG9uc2FfY29sb3JzID0gYygiSnVseSIgPSAiIzc5MTEwMSIsICJBdWd1c3QiID0gIiNBRDIxMDYiLCAiU2VwdGVtYmVyIiA9ICIjQ0MzNDAzIiwgCiAgICAgICAgICAgICAgICAgIk9jdG9iZXIiID0gIiNFRjVGMDgiLCAiTm92ZW1iZXJfMSIgPSAiI0YyNzAwNiIsICJOb3ZlbWJlcl8yIiA9ICIjRUVCNjBBIikKCmh1ZHNfY29sb3JzID0gYygiSmFudWFyeSIgPSAiIzA2MUIyNCIsICJGZWJydWFyeSIgPSAiIzBGNDI1NiIsICJNYXJjaCIgPSAiIzE1NkQ4RCIsIAogICAgICAgICAgICAgICAgIkFwcmlsIiA9ICIjMkZBQURDIiwgIk1heSIgPSAiIzYxQkZFMyIsICJKdW5lIiA9ICIjOTdENUVFIikKCmNvbWJfY29sb3JzID0gYyhodWRzX2NvbG9ycywgdG9uc2FfY29sb3JzKQoKYSA9IGdncGxvdCgpICsgdGhlbWVfcHViY2xlYW4oKQoKc3VydiRNb250aCA9IGZhY3RvcihzdXJ2JE1vbnRoLCBsZXZlbHMgPSBjKCJKdWx5IiwgIkF1Z3VzdCIsICJTZXB0ZW1iZXIiLCAiT2N0b2JlciIsICJOb3ZlbWJlcl8xIiwgIk5vdmVtYmVyXzIiKSkKaHVkc19zdXJ2JE1vbnRoID0gZmFjdG9yKGh1ZHNfc3VydiRNb250aCwgbGV2ZWxzID0gYygiSmFudWFyeSIsICJGZWJydWFyeSIsICJNYXJjaCIsICJBcHJpbCIsICJNYXkiLCAiSnVuZSIpKQoKY29tYl9wcmVkcyRjdXJ2ZV9pZCA9IGZhY3Rvcihjb21iX3ByZWRzJGN1cnZlX2lkLCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICBsZXZlbHMgPSBjKCJKYW51YXJ5IiwgIkZlYnJ1YXJ5IiwgIk1hcmNoIiwgIkFwcmlsIiwgIk1heSIsICJKdW5lIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICJKdWx5IiwgIkF1Z3VzdCIsICJTZXB0ZW1iZXIiLCAiT2N0b2JlciIsICJOb3ZlbWJlcl8xIiwgIk5vdmVtYmVyXzIiKSkKCmNvbWJfZCRjdXJ2ZV9pZCA9IGZhY3Rvcihjb21iX2QkY3VydmVfaWQsIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgIGxldmVscyA9IGMoIkphbnVhcnkiLCAiRmVicnVhcnkiLCAiTWFyY2giLCAiQXByaWwiLCAiTWF5IiwgIkp1bmUiLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIkp1bHkiLCAiQXVndXN0IiwgIlNlcHRlbWJlciIsICJPY3RvYmVyIiwgIk5vdmVtYmVyXzEiLCAiTm92ZW1iZXJfMiIpKQoKY29tYl9zdXJ2JE1vbnRoID0gZmFjdG9yKGNvbWJfc3VydiRNb250aCwgCiAgICAgICAgICAgICAgICAgICAgICAgICBsZXZlbHMgPSBjKCJKYW51YXJ5IiwgIkZlYnJ1YXJ5IiwgIk1hcmNoIiwgIkFwcmlsIiwgIk1heSIsICJKdW5lIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIkp1bHkiLCAiQXVndXN0IiwgIlNlcHRlbWJlciIsICJPY3RvYmVyIiwgIk5vdmVtYmVyXzEiLCAiTm92ZW1iZXJfMiIpKQoKYGBgCgojIyBNYWluIFRleHQgRmlndXJlcwpgYGB7ciBmaWd1cmUtMi1jb21iaW5lZC10cGNzLCBmaWcuaGVpZ2h0PTZ9CmNvbWJfZXByX3Bsb3QgPSBjb21iX3ByZWRzICU+JSAKICBmaWx0ZXIobWV0cmljID09ICJFUFIiKSAlPiUgCiAgZ2dwbG90KCkgKwogIGdlb21fcG9pbnQoYWVzKHRlbXAsIHJhdGUsIGNvbG91ciA9IGN1cnZlX2lkKSwgCiAgICAgICAgICAgICBmaWx0ZXIoY29tYl9kLCBtZXRyaWMgPT0gIkVQUiIpLCAKICAgICAgICAgICAgIHNpemUgPSAxLjUsIGFscGhhID0gMC42LCAKICAgICAgICAgICAgIHBvc2l0aW9uID0gcG9zaXRpb25faml0dGVyKHdpZHRoID0gMC41LCBoZWlnaHQgPSAwKSkgKwogIGdlb21fcmliYm9uKGFlcyh0ZW1wLCB5bWluID0gY29uZl9sb3dlciwgeW1heCA9IGNvbmZfdXBwZXIsIGdyb3VwID0gY3VydmVfaWQpLCAKICAgICAgICAgICAgICBmaWx0ZXIoY29tYl9ib290X2NvbmZfcHJlZHMsIG1ldHJpYyA9PSAiRVBSIiksIAogICAgICAgICAgICAgIGZpbGwgPSAnZ3JleTYwJywgYWxwaGEgPSAwLjMpICsKICBnZW9tX2xpbmUoYWVzKHRlbXAsIC5maXR0ZWQsIGNvbCA9IGN1cnZlX2lkKSwgbGluZXdpZHRoID0gMikgKwogIHNjYWxlX2NvbG91cl9tYW51YWwodmFsdWVzID0gY29tYl9jb2xvcnMpICsgCiAgbGFicyh4ID0gIlRlbXBlcmF0dXJlIChkZWdyZWVzIEMpIiwgCiAgICAgICB5ID0gIkVnZyBQcm9kdWN0aW9uIFJhdGUgXG4oZWdncy9mZW1hbGUvZGF5KSIsCiAgICAgICBjb2xvdXIgPSAiTW9udGgiKSArIAogIHRoZW1lX21hdHQoYmFzZV9zaXplID0gMTIpCgpjb21iX2hzX3Bsb3QgPSBjb21iX3ByZWRzICU+JSAKICBmaWx0ZXIobWV0cmljID09ICJIRiIpICU+JSAKICBnZ3Bsb3QoKSArCiAgZ2VvbV9wb2ludChhZXModGVtcCwgcmF0ZSwgY29sb3VyID0gY3VydmVfaWQpLCBmaWx0ZXIoY29tYl9kLCBtZXRyaWMgPT0gIkhGIiksIHNpemUgPSAxLjUsIGFscGhhID0gMC42LCAKICAgICAgICAgICAgIHBvc2l0aW9uID0gcG9zaXRpb25faml0dGVyKHdpZHRoID0gMC41LCBoZWlnaHQgPSAwKSkgKwogIGdlb21fcmliYm9uKGFlcyh0ZW1wLCB5bWluID0gY29uZl9sb3dlciwgeW1heCA9IGNvbmZfdXBwZXIsIGdyb3VwID0gY3VydmVfaWQpLCBmaWx0ZXIoY29tYl9ib290X2NvbmZfcHJlZHMsIG1ldHJpYyA9PSAiSEYiKSwgZmlsbCA9ICdncmV5NjAnLCBhbHBoYSA9IDAuMykgKwogIGdlb21fbGluZShhZXModGVtcCwgLmZpdHRlZCwgY29sID0gY3VydmVfaWQpLCBsaW5ld2lkdGggPSAyKSArCiAgI3NjYWxlX2NvbG9yX2JyZXdlcih0eXBlID0gImRpdiIsIHBhbGV0dGUgPSA1LCBkaXJlY3Rpb24gPSAtMSkgKyAKICAjc2NhbGVfY29sb3JfdmlyaWRpc19kKG9wdGlvbiA9ICJtYWtvIikgKyAKICBzY2FsZV9jb2xvdXJfbWFudWFsKHZhbHVlcyA9IGNvbWJfY29sb3JzKSArIAogIGxhYnMoeCA9ICJUZW1wZXJhdHVyZSAoZGVncmVlcyBDKSIsIAogICAgICAgeSA9ICJIYXRjaGluZyBTdWNjZXNzIFxuKCUpIiwKICAgICAgIGNvbG91ciA9ICJNb250aCIpICsgCiAgdGhlbWVfbWF0dChiYXNlX3NpemUgPSAxMikKCmNvbWJfcmZfcGxvdCA9IGNvbWJfcHJlZHMgJT4lIAogIGZpbHRlcihtZXRyaWMgPT0gIlJGIikgJT4lIAogIGdncGxvdCgpICsKICBnZW9tX3BvaW50KGFlcyh0ZW1wLCByYXRlLCBjb2xvdXIgPSBjdXJ2ZV9pZCksIGZpbHRlcihjb21iX2QsIG1ldHJpYyA9PSAiUkYiKSwgc2l6ZSA9IDEuNSwgYWxwaGEgPSAwLjYsIAogICAgICAgICAgICAgcG9zaXRpb24gPSBwb3NpdGlvbl9qaXR0ZXIod2lkdGggPSAwLjUsIGhlaWdodCA9IDApKSArCiAgZ2VvbV9yaWJib24oYWVzKHRlbXAsIHltaW4gPSBjb25mX2xvd2VyLCB5bWF4ID0gY29uZl91cHBlciwgZ3JvdXAgPSBjdXJ2ZV9pZCksIGZpbHRlcihjb21iX2Jvb3RfY29uZl9wcmVkcywgbWV0cmljID09ICJSRiIpLCBmaWxsID0gJ2dyZXk2MCcsIGFscGhhID0gMC4zKSArCiAgZ2VvbV9saW5lKGFlcyh0ZW1wLCAuZml0dGVkLCBjb2wgPSBjdXJ2ZV9pZCksIGxpbmV3aWR0aCA9IDIpICsKICAjc2NhbGVfY29sb3JfYnJld2VyKHR5cGUgPSAiZGl2IiwgcGFsZXR0ZSA9IDUsIGRpcmVjdGlvbiA9IC0xKSArIAogICNzY2FsZV9jb2xvcl92aXJpZGlzX2Qob3B0aW9uID0gIm1ha28iKSArIAogIHNjYWxlX2NvbG91cl9tYW51YWwodmFsdWVzID0gY29tYl9jb2xvcnMpICsgCiAgbGFicyh4ID0gIlRlbXBlcmF0dXJlIChkZWdyZWVzIEMpIiwgCiAgICAgICB5ID0gIlByb2R1Y3Rpb24gXG4ob2Zmc3ByaW5nL2ZlbWFsZS9kYXkpIiwKICAgICAgIGNvbG91ciA9ICJNb250aCIpICsgCiAgdGhlbWVfbWF0dChiYXNlX3NpemUgPSAxMikKCmNvbWJfdHNjID0gZ2dwbG90KGNvbWJfc3VydiwgYWVzKHg9VGVtcCwgeT1TdXJ2LCBjb2xvdXI9TW9udGgpKSArIAogIGdlb21fcG9pbnQoc2l6ZT0xLjUsIHBvc2l0aW9uPXBvc2l0aW9uX2ppdHRlcih3aWR0aD0wLjEsIGhlaWdodD0wLjAzKSkgKwogIHhsYWIoIlN0cmVzcyBUZW1wZXJhdHVyZSIpKwogIHlsYWIoIlN1cnZpdm9yc2hpcCBcbihwcm9wb3J0aW9uIHN1cnZpdmVkKSIpKwogIGxhYnMoY29sb3VyID0gIk1vbnRoIikgKyAKICBnZW9tX2hsaW5lKHlpbnRlcmNlcHQgPSAwLjUsIGxpbmV0eXBlID0gImRhc2hlZCIpICsKICBnZW9tX3Ntb290aChtZXRob2QgPSAiZ2xtIiwgbWV0aG9kLmFyZ3MgPSBsaXN0KGZhbWlseSA9ICJiaW5vbWlhbCIpLCBzZT1ULCBsaW5ld2lkdGggPSAyKSArCiAgc2NhbGVfeV9jb250aW51b3VzKGJyZWFrcyA9IGMoMCwxKSkgKyAKICAjc2NhbGVfY29sb3JfYnJld2VyKHR5cGUgPSAiZGl2IiwgcGFsZXR0ZSA9IDUsIGRpcmVjdGlvbiA9IC0xKSArIAogICNzY2FsZV9jb2xvcl92aXJpZGlzX2Qob3B0aW9uID0gIm1ha28iKSArIAogIHNjYWxlX2NvbG91cl9tYW51YWwodmFsdWVzID0gY29tYl9jb2xvcnMpICsgCiAgdGhlbWVfbWF0dChiYXNlX3NpemUgPSAxMikKCmdnYXJyYW5nZShjb21iX2Vwcl9wbG90LCBjb21iX2hzX3Bsb3QsIGNvbWJfcmZfcGxvdCwgY29tYl90c2MsIAogICAgICAgICAgbmNvbCA9IDIsIG5yb3cgPSAyLAogICAgICAgICAgY29tbW9uLmxlZ2VuZCA9IFQsIGxlZ2VuZCA9ICJib3R0b20iLCBsYWJlbHMgPSAiQVVUTyIpCmBgYAoKYGBge3IgZmlndXJlLTMtY3VydmUtcGFyYW1ldGVycywgd2FybmluZyA9IEYsIG1lc3NhZ2UgPSBGLCBmaWcud2lkdGg9OCwgZmlnLmhlaWdodD03fQpjb21iaW5lZF9vcHRfY29sbCA9IGNvbWJfcGFyYW1zICU+JSAKICBmaWx0ZXIobWV0cmljID09ICJSRiIgJiB0ZXJtID09ICJ0b3B0IikgJT4lIAogIGdncGxvdChhZXMoeCA9IGdyb3d0aF90ZW1wLCB5ID0gZXN0aW1hdGUsIHNoYXBlID0gc3BlY2llcykpICsgCiAgZ2VvbV9zbW9vdGgoZGF0YSA9IGZpbHRlcihjb21iX3BhcmFtcywgbWV0cmljID09ICJSRiIgJiB0ZXJtID09ICJ0b3B0IiAmIGN1cnZlX2lkICE9ICJOb3ZlbWJlcl8yIiksCiAgICAgICAgICAgICAgbWV0aG9kID0gImxtIiwgY29sb3VyID0gImdyZXk1MCIpICsgCiAgZ2VvbV9wb2ludChzaXplID0gMywgc3Ryb2tlID0gMSkgKyAKICBzY2FsZV9zaGFwZV9tYW51YWwodmFsdWVzID0gYygxNiwyMSkpICsgCiAgeWxhYigiT3B0aW11bSAowrBDKSIpICsgCiAgeGxhYigiQ29sbGVjdGlvbiBUZW1wZXJhdHVyZSAowrBDKSIpICsgCiAgbGFicyhjb2xvdXIgPSAiTW9udGgiKSArIAogIHRoZW1lX21hdHQoYmFzZV9zaXplID0gMTIpCgpjb21iaW5lZF9vcHRfZGlmZiA9IGNvbWJfcGFyYW1zICU+JSAKICBmaWx0ZXIobWV0cmljID09ICJSRiIgJiB0ZXJtID09ICJ0b3B0IikgJT4lIAogIGdncGxvdChhZXMoeCA9IGdyb3d0aF90ZW1wLCB5ID0gbWFyZ2luLCBzaGFwZSA9IHNwZWNpZXMpKSArCiAgZ2VvbV9obGluZSh5aW50ZXJjZXB0ID0gMCwgbGluZXdpZHRoID0xLCBsaW5ldHlwZSA9ICJkYXNoZWQiKSArCiAgZ2VvbV9zbW9vdGgoZGF0YSA9IGZpbHRlcihjb21iX3BhcmFtcywgbWV0cmljID09ICJSRiIgJiB0ZXJtID09ICJ0b3B0IiAmIGN1cnZlX2lkICE9ICJOb3ZlbWJlcl8yIiksCiAgICAgICAgICAgICAgbWV0aG9kID0gImxtIiwgY29sb3VyID0gImdyZXk1MCIpICsgCiAgZ2VvbV9wb2ludChzaXplID0gMywgc3Ryb2tlID0gMSkgKyAKICB5bGFiKCJNYXJnaW4gKMKwQykiKSArIAogIHhsYWIoIkNvbGxlY3Rpb24gVGVtcGVyYXR1cmUgKMKwQykiKSArIAogIHNjYWxlX3NoYXBlX21hbnVhbCh2YWx1ZXMgPSBjKDE2LDIxKSkgKyAKICB0aGVtZV9tYXR0KGJhc2Vfc2l6ZSA9IDEyKSAKCmNvbWJpbmVkX2xkX2NvbGwgPSBnZ3Bsb3QoY29tYmluZWRfdG9sZXJhbmNlLCBhZXMoeCA9IENvbGxfdGVtcCwgeSA9IExENTAsIHNoYXBlID0gc3BlY2llcykpICsgCiAgZ2VvbV9zbW9vdGgobWV0aG9kID0gImxtIiwgY29sb3VyID0gImdyZXk1MCIpICsgCiAgZ2VvbV9wb2ludChzaXplID0gMywgc3Ryb2tlID0gMSkgKyAKICBzY2FsZV9zaGFwZV9tYW51YWwodmFsdWVzID0gYygxNiwyMSkpICsgCiAgeWxhYigiVGhlcm1hbCBUb2xlcmFuY2UgKMKwQykiKSArIAogIHhsYWIoIkNvbGxlY3Rpb24gVGVtcGVyYXR1cmUgKMKwQykiKSArIAogIHRoZW1lX21hdHQoYmFzZV9zaXplID0gMTIpCgpjb21iaW5lZF9sZF9kaWZmID0gZ2dwbG90KGNvbWJpbmVkX3RvbGVyYW5jZSwgYWVzKHggPSBDb2xsX3RlbXAsIHkgPSBtYXJnaW4sIHNoYXBlID0gc3BlY2llcykpICsKICBnZW9tX3Ntb290aChtZXRob2QgPSAibG0iLCBjb2xvdXIgPSAiZ3JleTUwIikgKyAKICBnZW9tX3BvaW50KHNpemUgPSAzLCBzdHJva2UgPSAxKSArIAogIHNjYWxlX3NoYXBlX21hbnVhbCh2YWx1ZXMgPSBjKDE2LDIxKSkgKyAKICB5bGFiKCJXYXJtaW5nIFRvbGVyYW5jZSAowrBDKSIpICsgCiAgeGxhYigiQ29sbGVjdGlvbiBUZW1wZXJhdHVyZSAowrBDKSIpICsgCiAgdGhlbWVfbWF0dChiYXNlX3NpemUgPSAxMikKCmdnYXJyYW5nZShjb21iaW5lZF9vcHRfY29sbCwgY29tYmluZWRfb3B0X2RpZmYsIGNvbWJpbmVkX2xkX2NvbGwsIGNvbWJpbmVkX2xkX2RpZmYsIG5jb2wgPSAyLCBucm93ID0gMiwgY29tbW9uLmxlZ2VuZCA9IFQsCiAgICAgICAgICBsZWdlbmQgPSAiYm90dG9tIiwgbGFiZWxzID0gIkFVVE8iKQpgYGAKCmBgYHtyfQpGMF9yZl9zdW1tYXJ5JG1vbnRoID0gZmFjdG9yKEYwX3JmX3N1bW1hcnkkbW9udGgsIGxldmVscyA9IGMoIkp1bmUiLCAiQXVndXN0IiwgIk5vdmVtYmVyIikpCkYwX3JmX3N1bW1hcnkkZHVyYXRpb24gPSBmYWN0b3IoRjBfcmZfc3VtbWFyeSRkdXJhdGlvbiwgbGV2ZWxzID0gYygic2hvcnQiLCAibG9uZyIpKQpGMF9kdXJfc3VtbWFyeSRtb250aCA9IGZhY3RvcihGMF9kdXJfc3VtbWFyeSRtb250aCwgbGV2ZWxzID0gYygiSnVuZSIsICJBdWd1c3QiLCAiTm92ZW1iZXIiKSkKCnBhcmFtX2xpc3QgPSBsaXN0KCJjb2xvdXIiID0gImJsYWNrIiwKICAgICAgICAgICAgICAgICAgIndpZHRoIiA9IDAuMikgCgpSRl9zaG9ydF9kYiA9IHBsb3QoRjBfUkZfc2hvcnQsIAogICAgICAgICAgICAgICAgICAgYXhlcy50aXRsZS5mb250c2l6ZSA9IDEwLAogICAgICAgICAgICAgICAgICAgdGljay5mb250c2l6ZSA9IDEwLAogICAgICAgICAgICAgICAgICAgZWZmc2l6ZS5tYXJrZXJzaXplID0gMywKICAgICAgICAgICAgICAgICAgIHN3YXJtcGxvdC5wYXJhbXMgPSBwYXJhbV9saXN0LAogICAgICAgICAgICAgICAgICAgcmF3cGxvdC55bGFiZWwgPSAiUHJvZHVjdGlvbiIsCiAgICAgICAgICAgICAgICAgICB0aGVtZSA9IGdncHVicjo6dGhlbWVfcHVicigpKQoKUkZfbG9uZ19kYiA9IHBsb3QoRjBfUkZfbG9uZywgCiAgICAgICAgICAgICAgICAgIGF4ZXMudGl0bGUuZm9udHNpemUgPSAxMCwKICAgICAgICAgICAgICAgICAgdGljay5mb250c2l6ZSA9IDEwLAogICAgICAgICAgICAgICAgICBlZmZzaXplLm1hcmtlcnNpemUgPSAzLAogICAgICAgICAgICAgICAgICBzd2FybXBsb3QucGFyYW1zID0gcGFyYW1fbGlzdCwKICAgICAgICAgICAgICAgICAgcmF3cGxvdC55bGFiZWwgPSAiUHJvZHVjdGlvbiIsCiAgICAgICAgICAgICAgICAgIHRoZW1lID0gZ2dwdWJyOjp0aGVtZV9wdWJyKCkpCgpiMSA9IGdncGxvdCgpICsgdGhlbWVfcHViY2xlYW4oKSArIGdndGl0bGUoIiAgICAgICAgICBTaG9ydCBIZWF0IFdhdmVzIikKYjIgPSBnZ3Bsb3QoKSArIHRoZW1lX3B1YmNsZWFuKCkgKyBnZ3RpdGxlKCIgICAgICAgICAgTG9uZyBIZWF0IFdhdmVzIikKRjBfZmVjdW5kaXR5X3Bsb3QgPSBnZ2FycmFuZ2UoYjEsIFJGX3Nob3J0X2RiLCBiMiwgUkZfbG9uZ19kYiwgbmNvbCA9IDEsIG5yb3cgPSA0LCBoZWlnaHRzID0gYygwLjEsIDEsIDAuMSwgMSkpCmBgYAoKYGBge3IgZmlndXJlLTQtc2ltLWhlYXR3YXZlLWVmZmVjdHMsIGZpZy5oZWlnaHQ9NiwgZmlnLndpZHRoPTV9CnguYXhpc19sYWJlbHMgPSBjKCIxIiA9ICJzaG9ydCIsICIyIiA9ICJsb25nIiwgIjMiID0gInNob3J0IiwgIjQiID0gImxvbmciKQoKRjBfZ3JpZCA9IEYwX3JmX3N1bW1hcnkgJT4lIAogIG11dGF0ZShtb250aCA9IGZjdF9yZWxldmVsKG1vbnRoLCAiSnVuZSIsICJBdWd1c3QiLCAiTm92ZW1iZXIiKSkgJT4lIAogIGdncGxvdChhZXMoeCA9IGR1cmF0aW9uLCB5ID0gZGlmZmVyZW5jZSwgY29sb3VyID0gdHJhaXQsIHNoYXBlID0gZHVyYXRpb24pKSArIAogIGZhY2V0X2dyaWQoLiB+IG1vbnRoKSArIAogIGdlb21faGxpbmUoeWludGVyY2VwdCA9IDAsIGNvbG91ciA9ICJibGFjayIsIGxpbmV3aWR0aCA9IDAuMykgKwogIGdlb21fZXJyb3JiYXIoYWVzKHltaW4gPSBiY2FfY2lfbG93LCB5bWF4ID0gYmNhX2NpX2hpZ2gpLCB3aWR0aCA9IDAsIGxpbmV3aWR0aCA9IDEuMykgKyAKICBnZW9tX3BvaW50KHNpemUgPSA1LCBmaWxsID0gIndoaXRlIikgKyAKICBzY2FsZV9jb2xvdXJfbWFudWFsKHZhbHVlcyA9IGMoImJvZHkgc2l6ZSIgPSAiZ3JleTc1IiwgInByb2R1Y3Rpb24iID0gImJsYWNrIikpICsgCiAgc2NhbGVfc2hhcGVfbWFudWFsKHZhbHVlcyA9IGMoImxvbmciID0gMTYsICJzaG9ydCIgPSAyMSkpICsgCiAgc2NhbGVfeF9kaXNjcmV0ZShsYWJlbHM9IHguYXhpc19sYWJlbHMpICsKICBnZ3RpdGxlKCJEaXJlY3QgRWZmZWN0cyAoRjApIikgKyAKICB4bGFiKCIiKSArCiAgeWxhYigiRWZmZWN0IFNpemVcbkhlYXR3YXZlIC0gQ29udHJvbCIpICsgCiAgeWxpbSgtMSwxLjEpICsgCiAgdGhlbWVfYncoYmFzZV9zaXplID0gMTIpICsgCiAgdGhlbWUocGFuZWwuZ3JpZCA9IGVsZW1lbnRfYmxhbmsoKSwKICAgICAgICBheGlzLnRleHQgPSBlbGVtZW50X3RleHQoY29sb3VyID0gImJsYWNrIiksCiAgICAgICAgYXhpcy50ZXh0LnggPSBlbGVtZW50X3RleHQoYW5nbGUgPSAtNDUsIGhqdXN0ID0gMCwgdmp1c3QgPSAwLjUpLAogICAgICAgIGxlZ2VuZC5wb3NpdGlvbiA9ICJub25lIikKCkYxX3N1bW1hcnkgPSBiaW5kX3Jvd3MoRjFfcmZfZWZmZWN0X3NpemUsIEYxX2JzX2VmZmVjdF9zaXplKSAlPiUgCiAgZHBseXI6OnNlbGVjdCh2YXJpYWJsZSwgZGlmZmVyZW5jZSwgCiAgICAgICAgICAgICAgICBiY2FfY2lfbG93LCBiY2FfY2lfaGlnaCwgCiAgICAgICAgICAgICAgICBtb250aCwgZHVyYXRpb24sIHRyYWl0LCBnZW5lcmF0aW9uLCBvZmZfdGVtcCkgJT4lIAogIG11dGF0ZSgib3JkZXJfY29kZSIgPSBwYXN0ZSh0cmFpdCwgZHVyYXRpb24sIHNlcCA9ICJfIiksCiAgICAgICAgICJvcmRlcl9udW1iZXIiID0gY2FzZV93aGVuKAogICAgICAgICAgIG9yZGVyX2NvZGUgPT0gInByb2R1Y3Rpb25fc2hvcnQiIH4gMSwKICAgICAgICAgICBvcmRlcl9jb2RlID09ICJwcm9kdWN0aW9uX2xvbmciIH4gMiwKICAgICAgICAgICBvcmRlcl9jb2RlID09ICJib2R5IHNpemVfc2hvcnQiIH4gMywKICAgICAgICAgICBvcmRlcl9jb2RlID09ICJib2R5IHNpemVfbG9uZyIgfiA0KSwKICAgICAgICAgbW9udGggPSBmY3RfcmVsZXZlbChtb250aCwgIkp1bmUiLCAiQXVndXN0IiwgIk5vdmVtYmVyIikpCgpGMV9zdW1tYXJ5JG9yZGVyX251bWJlciA9IGZhY3RvcihGMV9zdW1tYXJ5JG9yZGVyX251bWJlciwgbGV2ZWxzID0gYygxLDIsMyw0KSkKRjFfZ3JpZCA9IGdncGxvdChGMV9zdW1tYXJ5LCBhZXMoeCA9IG9yZGVyX251bWJlciwgeSA9IGRpZmZlcmVuY2UsIGNvbG91ciA9IHRyYWl0LCBzaGFwZSA9IGR1cmF0aW9uLCBncm91cCA9IHRyYWl0KSkgKwogIGZhY2V0X2dyaWQob2ZmX3RlbXAgfiBtb250aCwgKSArIAogIGdlb21faGxpbmUoeWludGVyY2VwdCA9IDAsIGNvbG91ciA9ICJibGFjayIsIGxpbmV3aWR0aCA9IDAuMykgKwogIGdlb21fbGluZSgpICsgCiAgZ2VvbV9lcnJvcmJhcihhZXMoeW1pbiA9IGJjYV9jaV9sb3csIHltYXggPSBiY2FfY2lfaGlnaCksIHdpZHRoID0gMCwgbGluZXdpZHRoID0gMSkgKyAKICBnZW9tX3BvaW50KHNpemUgPSAzLCBmaWxsID0gIndoaXRlIikgKyAKICBzY2FsZV9jb2xvdXJfbWFudWFsKHZhbHVlcyA9IGMoImJvZHkgc2l6ZSIgPSAiZ3JleTc1IiwgInByb2R1Y3Rpb24iID0gImJsYWNrIikpICsgCiAgc2NhbGVfc2hhcGVfbWFudWFsKHZhbHVlcyA9IGMoImxvbmciID0gMTYsICJzaG9ydCIgPSAyMSkpICsgCiAgeGxpbSgwLjUsNC41KSArIAogIHNjYWxlX3hfZGlzY3JldGUobGFiZWxzPSB4LmF4aXNfbGFiZWxzKSArCiAgeGxhYigiIikgKwogIHlsYWIoIkVmZmVjdCBTaXplXG5IZWF0d2F2ZSAtIENvbnRyb2wiKSArIAogIGdndGl0bGUoIlRyYW5zZ2VuZXJhdGlvbmFsIEVmZmVjdHMgKEYxKSIpICsgCiAgdGhlbWVfYncoYmFzZV9zaXplID0gMTIpICsgCiAgdGhlbWUocGFuZWwuZ3JpZCA9IGVsZW1lbnRfYmxhbmsoKSwKICAgICAgICBzdHJpcC5iYWNrZ3JvdW5kLnggPSBlbGVtZW50X2JsYW5rKCksCiAgICAgICAgc3RyaXAudGV4dC54ID0gZWxlbWVudF9ibGFuaygpLAogICAgICAgIGF4aXMudGV4dCA9IGVsZW1lbnRfdGV4dChjb2xvdXIgPSAiYmxhY2siKSwKICAgICAgICBheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChhbmdsZSA9IC00NSwgaGp1c3QgPSAwLCB2anVzdCA9IDAuNSkpCgpnZ2FycmFuZ2UoRjBfZ3JpZCwgRjFfZ3JpZCwgbnJvdyA9IDIsIG5jb2wgPSAxLCBoZWlnaHRzID0gYygwLjQ1LDEpLCBjb21tb24ubGVnZW5kID0gVCwgbGVnZW5kID0gInJpZ2h0IikKYGBgCgojIyBTdXBwbGVtZW50YWwgSW5mb3JtYXRpb24gICAKYGBge3IgcGFyYW1ldGVycy1tb250aCwgZmlnLmhlaWdodD05LCBmaWcud2lkdGg9MTF9CiNmaWVsZCB0cGMgcGFyYW1ldGVycwpjb21iX3BhcmFtcyAlPiUgIAogIG11dGF0ZShjdXJ2ZV9pZCA9IGZjdF9yZWxldmVsKGN1cnZlX2lkLCBjKCJKYW51YXJ5IiwgIkZlYnJ1YXJ5IiwgIk1hcmNoIiwgIkFwcmlsIiwgIk1heSIsICJKdW5lIiwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIkp1bHkiLCAiQXVndXN0IiwgIlNlcHRlbWJlciIsICJPY3RvYmVyIiwgIk5vdmVtYmVyXzEiLCAiTm92ZW1iZXJfMiIpKSkgJT4lIAogIGdncGxvdChhZXMoeCA9IGN1cnZlX2lkLCB5ID0gZXN0aW1hdGUsIGNvbG91ciA9IHNwZWNpZXMpKSArCiAgZmFjZXRfd3JhcCh0ZXJtfm1ldHJpYywgc2NhbGVzID0gJ2ZyZWVfeScpICsgCiAgZ2VvbV9wb2ludChzaXplID0gNCkgKwogIGdlb21fbGluZXJhbmdlKGFlcyh5bWluID0gY29uZl9sb3dlciwgeW1heCA9IGNvbmZfdXBwZXIpKSArCiAgc2NhbGVfY29sb3VyX21hbnVhbCh2YWx1ZXMgPSBjKCJyb3lhbGJsdWUxIiwgImluZGlhbnJlZDIiKSkgKyAKICBsYWJzKHggPSAiTW9udGgiLAogICAgICAgeSA9ICJQYXJhbWV0ZXIgRXN0aW1hdGUiLAogICAgICAgY29sb3VyID0gIlNwZWNpZXMiKSArIAogIHRoZW1lX2J3KGJhc2Vfc2l6ZSA9IDE2KSArCiAgdGhlbWUocGFuZWwuZ3JpZCA9IGVsZW1lbnRfYmxhbmsoKSwKICAgICAgICBheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChhbmdsZSA9IDMxNSwgaGp1c3QgPSAwLCB2anVzdCA9IDAuNSkpCmBgYAoKYGBge3IgcGFyYW1ldGVycy1jb2xsLXRlbXAsIGZpZy5oZWlnaHQ9NywgZmlnLndpZHRoPTl9CiNmaWVsZCB0cGMgcGFyYW1ldGVycwpnZ3Bsb3QoY29tYl9wYXJhbXMsIGFlcyh4ID0gZ3Jvd3RoX3RlbXAsIHkgPSBlc3RpbWF0ZSwgY29sb3VyID0gc3BlY2llcykpICsKICBmYWNldF93cmFwKHRlcm1+bWV0cmljLCBzY2FsZXMgPSAnZnJlZV95JykgKyAKICBnZW9tX3Ntb290aChkYXRhID0gZmlsdGVyKGNvbWJfcGFyYW1zLCBjdXJ2ZV9pZCAhPSAiTm92ZW1iZXJfMiIpLAogICAgICAgICAgICAgIG1ldGhvZCA9ICJsbSIsIHNlID0gRikgKyAKICBnZW9tX3BvaW50KHNpemUgPSA0KSArCiAgZ2VvbV9saW5lcmFuZ2UoYWVzKHltaW4gPSBjb25mX2xvd2VyLCB5bWF4ID0gY29uZl91cHBlcikpICsKICBzY2FsZV9jb2xvdXJfbWFudWFsKHZhbHVlcyA9IGMoInJveWFsYmx1ZTEiLCAiaW5kaWFucmVkMiIpKSArIAogIGxhYnMoeCA9ICJDb2xsZWN0aW9uIFRlbXBlcmF0dXJlIChkZWdyZWVzIEMpIiwKICAgICAgIHkgPSAiUGFyYW1ldGVyIEVzdGltYXRlIiwKICAgICAgIGNvbG91ciA9ICJTcGVjaWVzIikgKyAKICB0aGVtZV9idyhiYXNlX3NpemUgPSAxMikgKwogIHRoZW1lKHBhbmVsLmdyaWQgPSBlbGVtZW50X2JsYW5rKCkpCmBgYAoKYGBge3IgbWFyZ2lucy1jb2xsLXRlbXAsIGZpZy5oZWlnaHQ9OSwgZmlnLndpZHRoPTd9CmNvbWJfcGFyYW1zICU+JSAKICBmaWx0ZXIodGVybSA9PSAidG9wdCIpICU+JSAKICBnZ3Bsb3QoYWVzKHggPSBncm93dGhfdGVtcCwgeSA9IG1hcmdpbiwgY29sb3VyID0gc3BlY2llcywgZ3JvdXAgPSBzcGVjaWVzKSkgKyAKICBmYWNldF9ncmlkKG1ldHJpY34uLCBzY2FsZXMgPSAnZnJlZV95JykgKyAKICBnZW9tX2hsaW5lKHlpbnRlcmNlcHQgPSAwKSArCiAgZ2VvbV9zbW9vdGgoZGF0YSA9IGZpbHRlcihjb21iX3BhcmFtcywgdGVybSA9PSAidG9wdCIgJiBjdXJ2ZV9pZCAhPSAiTm92ZW1iZXJfMiIpLAogICAgICAgICAgICAgIG1ldGhvZCA9ICJsbSIsIHNlID0gRiwgbGluZXdpZHRoID0gMSwgY29sb3VyID0gImJsYWNrIikgKyAKICBnZW9tX3BvaW50KHNpemUgPSA0KSArCiAgc2NhbGVfY29sb3VyX21hbnVhbCh2YWx1ZXMgPSBjKCJyb3lhbGJsdWUxIiwgImluZGlhbnJlZDIiKSkgKyAKICBsYWJzKHggPSAiQ29sbGVjdGlvbiBUZW1wZXJhdHVyZSIsCiAgICAgICB5ID0gIlNhZmV0eSBNYXJnaW4iKSArIAogIHRoZW1lX2J3KGJhc2Vfc2l6ZSA9IDE4KSArCiAgdGhlbWUocGFuZWwuZ3JpZCA9IGVsZW1lbnRfYmxhbmsoKSkKYGBgCgpgYGB7ciBlZmZlY3Qtc2l6ZS1ncmlkLCBmaWcuaGVpZ2h0PTgsIGZpZy53aWR0aD04fQojU3Vic2VxdWVudCBSb3dzCkYxX2hzX2VmZmVjdF9zaXplJHRyYWl0ID0gInN1Y2Nlc3MiCkYxX2hzX2VmZmVjdF9zaXplJGdlbmVyYXRpb24gPSAiRjEiCgpGMV90b3RhbF9lZmZlY3Rfc2l6ZSR0cmFpdCA9ICJlcHIiCkYxX3RvdGFsX2VmZmVjdF9zaXplJGdlbmVyYXRpb24gPSAiRjEiCgpGMV9yZl9lZmZlY3Rfc2l6ZSR0cmFpdCA9ICJwcm9kdWN0aW9uIgpGMV9yZl9lZmZlY3Rfc2l6ZSRnZW5lcmF0aW9uID0gIkYxIgoKRjFfYnNfZWZmZWN0X3NpemUkdHJhaXQgPSAiYm9keSBzaXplIgpGMV9ic19lZmZlY3Rfc2l6ZSRnZW5lcmF0aW9uID0gIkYxIgoKRjBfZGF0YSA9IGJpbmRfcm93cyhGMF9oc19zdW1tYXJ5LCBGMF90b3RhbF9zdW1tYXJ5LEYwX3JmX3N1bW1hcnksIEYwX3NpemVfc3VtbWFyeSkgJT4lIAogIGRwbHlyOjpzZWxlY3QodHJhaXQsIGRpZmZlcmVuY2UsIGJjYV9jaV9sb3csIGJjYV9jaV9oaWdoLCBtb250aCwgZHVyYXRpb24sIHRyYWl0LCBnZW5lcmF0aW9uKSAlPiUgCiAgbXV0YXRlKCJvcmRlcl9jb2RlIiA9IHBhc3RlKHRyYWl0LCBkdXJhdGlvbiwgc2VwID0gIl8iKSwKICAgICAgICAgIm9yZGVyX251bWJlciIgPSBjYXNlX3doZW4oCiAgICAgICAgICAgb3JkZXJfY29kZSA9PSAidG90YWxfc2hvcnQiIH4gMSwKICAgICAgICAgICBvcmRlcl9jb2RlID09ICJ0b3RhbF9sb25nIiB+IDIsCiAgICAgICAgICAgb3JkZXJfY29kZSA9PSAic3VjY2Vzc19zaG9ydCIgfiAzLAogICAgICAgICAgIG9yZGVyX2NvZGUgPT0gInN1Y2Nlc3NfbG9uZyIgfiA0LAogICAgICAgICAgIG9yZGVyX2NvZGUgPT0gInByb2R1Y3Rpb25fc2hvcnQiIH4gNSwKICAgICAgICAgICBvcmRlcl9jb2RlID09ICJwcm9kdWN0aW9uX2xvbmciIH4gNiwKICAgICAgICAgICBvcmRlcl9jb2RlID09ICJzaXplX2xvbmciIH4gNyksCiAgICAgICAgIG1vbnRoID0gZmN0X3JlbGV2ZWwobW9udGgsICJKdW5lIiwgIkF1Z3VzdCIsICJOb3ZlbWJlciIpLAogICAgICAgICB0cmFpdCA9IGZjdF9yZWxldmVsKHRyYWl0LCAidG90YWwiLCAic3VjY2VzcyIsICJwcm9kdWN0aW9uIiwgInNpemUiKSwKICAgICAgICAgZHVyYXRpb24gPSBmY3RfcmVsZXZlbChkdXJhdGlvbiwgInNob3J0IiwgImxvbmciKSwKICAgICAgICAgZ3JvdXBfSUQgPSBwYXN0ZShtb250aCwgdHJhaXQsIHNlcCA9ICJfIikpCgpGMF9kYXRhJG9yZGVyX251bWJlciA9IGZhY3RvcihGMF9kYXRhJG9yZGVyX251bWJlciwgbGV2ZWxzID0gYygxLDIsMyw0LDUsNiw3KSkKCgpGMV9kYXRhID0gYmluZF9yb3dzKEYxX3RvdGFsX2VmZmVjdF9zaXplLCBGMV9oc19lZmZlY3Rfc2l6ZSwgRjFfcmZfZWZmZWN0X3NpemUsIEYxX2JzX2VmZmVjdF9zaXplKSAlPiUgCiAgZHBseXI6OnNlbGVjdCh0cmFpdCwgZGlmZmVyZW5jZSwgYmNhX2NpX2xvdywgYmNhX2NpX2hpZ2gsIG1vbnRoLCBkdXJhdGlvbiwgZ2VuZXJhdGlvbiwgb2ZmX3RlbXApICU+JSAKICBtdXRhdGUoIm9yZGVyX2NvZGUiID0gcGFzdGUodHJhaXQsIGR1cmF0aW9uLCBzZXAgPSAiXyIpLAogICAgICAgICAib3JkZXJfbnVtYmVyIiA9IGNhc2Vfd2hlbigKICAgICAgICAgICBvcmRlcl9jb2RlID09ICJlcHJfc2hvcnQiIH4gMSwKICAgICAgICAgICBvcmRlcl9jb2RlID09ICJlcHJfbG9uZyIgfiAyLAogICAgICAgICAgIG9yZGVyX2NvZGUgPT0gInN1Y2Nlc3Nfc2hvcnQiIH4gMywKICAgICAgICAgICBvcmRlcl9jb2RlID09ICJzdWNjZXNzX2xvbmciIH4gNCwKICAgICAgICAgICBvcmRlcl9jb2RlID09ICJwcm9kdWN0aW9uX3Nob3J0IiB+IDUsCiAgICAgICAgICAgb3JkZXJfY29kZSA9PSAicHJvZHVjdGlvbl9sb25nIiB+IDYsCiAgICAgICAgICAgb3JkZXJfY29kZSA9PSAiYm9keSBzaXplX3Nob3J0IiB+IDcsCiAgICAgICAgICAgb3JkZXJfY29kZSA9PSAiYm9keSBzaXplX2xvbmciIH4gOCksCiAgICAgICAgIHRyYWl0ID0gaWZfZWxzZSh0cmFpdCA9PSAiZXByIiwgInRvdGFsIiwgdHJhaXQpLAogICAgICAgICBtb250aCA9IGZjdF9yZWxldmVsKG1vbnRoLCAiSnVuZSIsICJBdWd1c3QiLCAiTm92ZW1iZXIiKSwKICAgICAgICAgdHJhaXQgPSBmY3RfcmVsZXZlbCh0cmFpdCwgInRvdGFsIiwgInN1Y2Nlc3MiLCAicHJvZHVjdGlvbiIsICJzaXplIiksCiAgICAgICAgIGR1cmF0aW9uID0gZmN0X3JlbGV2ZWwoZHVyYXRpb24sICJzaG9ydCIsICJsb25nIikpCgoKRjFfZGF0YSRvcmRlcl9udW1iZXIgPSBmYWN0b3IoRjFfZGF0YSRvcmRlcl9udW1iZXIsIGxldmVscyA9IGMoMSwyLDMsNCw1LDYsNyw4KSkKCiNUb3Agcm93IC0gRjAgKGRpcmVjdCBlZmZlY3RzKQp4LmF4aXNfbGFiZWxzID0gYygiMSIgPSAic2hvcnQiLCAiMiIgPSAibG9uZyIsICIzIiA9ICJzaG9ydCIsICI0IiA9ICJsb25nIiwgCiAgICAgICAgICAgICAgICAgICI1IiA9ICJzaG9ydCIsICI2IiA9ICJsb25nIiwgIjciID0gInNob3J0IiwgIjgiID0gImxvbmciKQoKRjBfZ3JpZCA9IGdncGxvdChGMF9kYXRhLCBhZXMoeCA9IGR1cmF0aW9uLCB5ID0gZGlmZmVyZW5jZSwgY29sb3VyID0gdHJhaXQsIGdyb3VwID0gZ3JvdXBfSUQpKSArIAogIGZhY2V0X2dyaWQoLiB+IG1vbnRoKSArIAogIGdlb21fbGluZShwb3NpdGlvbiA9IHBvc2l0aW9uX2RvZGdlKHdpZHRoID0gMC43KSwKICAgICAgICAgICAgbGluZXdpZHRoID0gMSkgKyAKICBnZW9tX2hsaW5lKHlpbnRlcmNlcHQgPSAwLCBjb2xvdXIgPSAiYmxhY2siLCBsaW5ld2lkdGggPSAwLjMpICsKICBnZW9tX2Vycm9yYmFyKGFlcyh5bWluID0gYmNhX2NpX2xvdywgeW1heCA9IGJjYV9jaV9oaWdoKSwgd2lkdGggPSAwLCBsaW5ld2lkdGggPSAxLCAKICAgICAgICAgICAgICAgIHBvc2l0aW9uID0gcG9zaXRpb25fZG9kZ2Uod2lkdGggPSAwLjcpKSArIAogIGdlb21fcG9pbnQoc2l6ZSA9IDQsIGZpbGwgPSAid2hpdGUiLCBwb3NpdGlvbiA9IHBvc2l0aW9uX2RvZGdlKHdpZHRoID0gMC43KSkgKyAKICBzY2FsZV9zaGFwZV9tYW51YWwodmFsdWVzID0gYygibG9uZyIgPSAxNiwgInNob3J0IiA9IDIxKSkgKyAKICBzY2FsZV94X2Rpc2NyZXRlKGxhYmVscz0geC5heGlzX2xhYmVscykgKwogIHNjYWxlX2NvbG91cl9tYW51YWwodmFsdWVzID0gYygic2l6ZSIgPSAiZGFya2dyZXkiLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAic3VjY2VzcyIgPSAiZ29sZCIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICJwcm9kdWN0aW9uIiA9ICJmb3Jlc3RncmVlbiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICJ0b3RhbCIgPSAiY29ybmZsb3dlcmJsdWUiKSkgKyAgCiAgeGxhYigiIikgKwogIHlsYWIoIkVmZmVjdCBTaXplXG5IZWF0d2F2ZSAtIENvbnRyb2wiKSArIAogIHRoZW1lX2J3KGJhc2Vfc2l6ZSA9IDEyKSArIAogIHRoZW1lKHBhbmVsLmdyaWQgPSBlbGVtZW50X2JsYW5rKCksCiAgICAgICAgYXhpcy50ZXh0ID0gZWxlbWVudF90ZXh0KGNvbG91ciA9ICJibGFjayIpLAogICAgICAgIGF4aXMudGV4dC54ID0gZWxlbWVudF90ZXh0KGFuZ2xlID0gLTQ1LCBoanVzdCA9IDAsIHZqdXN0ID0gMC41KSwKICAgICAgICBsZWdlbmQucG9zaXRpb24gPSAibm9uZSIpCgojRm9sbG93aW5nIHRocmVlIHJvd3MgLSBGMSAodHJhbnNnZW5lcmF0aW9uIC8gaW5kaXJlY3QgZWZmZWN0cykKRjFfZ3JpZCA9IGdncGxvdChGMV9kYXRhLCBhZXMoeCA9IGR1cmF0aW9uLCB5ID0gZGlmZmVyZW5jZSwgY29sb3VyID0gdHJhaXQsIGdyb3VwID0gdHJhaXQpKSArIAogIGZhY2V0X2dyaWQob2ZmX3RlbXAgfiBtb250aCwgKSArIAogIGdlb21faGxpbmUoeWludGVyY2VwdCA9IDAsIGNvbG91ciA9ICJibGFjayIsIGxpbmV3aWR0aCA9IDAuMykgKwogIGdlb21fbGluZShwb3NpdGlvbiA9IHBvc2l0aW9uX2RvZGdlKHdpZHRoID0gMC41KSwKICAgICAgICAgICAgbGluZXdpZHRoID0gMSkgKyAKICBnZW9tX2Vycm9yYmFyKGFlcyh5bWluID0gYmNhX2NpX2xvdywgeW1heCA9IGJjYV9jaV9oaWdoKSwgd2lkdGggPSAwLCBsaW5ld2lkdGggPSAxLAogICAgICAgICAgICAgICAgcG9zaXRpb24gPSBwb3NpdGlvbl9kb2RnZSh3aWR0aCA9IDAuNSkpICsgCiAgZ2VvbV9wb2ludChzaXplID0gMywgZmlsbCA9ICJ3aGl0ZSIsIHBvc2l0aW9uID0gcG9zaXRpb25fZG9kZ2Uod2lkdGggPSAwLjUpKSArIAogIHNjYWxlX3NoYXBlX21hbnVhbCh2YWx1ZXMgPSBjKCJsb25nIiA9IDE2LCAic2hvcnQiID0gMjEpKSArIAogIHhsaW0oMC41LDQuNSkgKyAKICBzY2FsZV94X2Rpc2NyZXRlKGxhYmVscz0geC5heGlzX2xhYmVscykgKwogIHNjYWxlX2NvbG91cl9tYW51YWwodmFsdWVzID0gYygic2l6ZSIgPSAiZGFya2dyZXkiLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAic3VjY2VzcyIgPSAiZ29sZCIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICJwcm9kdWN0aW9uIiA9ICJmb3Jlc3RncmVlbiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICJ0b3RhbCIgPSAiY29ybmZsb3dlcmJsdWUiKSkgKyAKICB4bGFiKCIiKSArCiAgeWxhYigiRWZmZWN0IFNpemUgXG5IZWF0d2F2ZSAtIENvbnRyb2wiKSArIAogIHRoZW1lX2J3KGJhc2Vfc2l6ZSA9IDEyKSArIAogIHRoZW1lKHBhbmVsLmdyaWQgPSBlbGVtZW50X2JsYW5rKCksCiAgICAgICAgc3RyaXAuYmFja2dyb3VuZC54ID0gZWxlbWVudF9ibGFuaygpLAogICAgICAgIHN0cmlwLnRleHQueCA9IGVsZW1lbnRfYmxhbmsoKSwKICAgICAgICBheGlzLnRleHQgPSBlbGVtZW50X3RleHQoY29sb3VyID0gImJsYWNrIiksCiAgICAgICAgYXhpcy50ZXh0LnggPSBlbGVtZW50X3RleHQoYW5nbGUgPSAtNDUsIGhqdXN0ID0gMCwgdmp1c3QgPSAwLjUpKQoKZ2dhcnJhbmdlKEYwX2dyaWQsIEYxX2dyaWQsIG5yb3cgPSAyLCBuY29sID0gMSwgaGVpZ2h0cyA9IGMoMC4zNSwxKSwgY29tbW9uLmxlZ2VuZCA9IFQsIGxlZ2VuZCA9ICJyaWdodCIpCmBgYAoKYGBge3J9CmVmZmVjdF9jb3JyID0gRjFfc3VtbWFyeSAlPiUgCiAgc2VsZWN0KHRyYWl0LCBkaWZmZXJlbmNlLCBtb250aCwgZHVyYXRpb24sIG9mZl90ZW1wKSAlPiUgIAogIHBpdm90X3dpZGVyKGlkX2NvbHMgPSBjKG1vbnRoLCBkdXJhdGlvbiwgb2ZmX3RlbXApLAogICAgICAgICAgICAgIG5hbWVzX2Zyb20gPSB0cmFpdCwgCiAgICAgICAgICAgICAgdmFsdWVzX2Zyb20gPSBkaWZmZXJlbmNlKQoKZ2dwbG90KGVmZmVjdF9jb3JyLCBhZXMoeCA9IGBib2R5IHNpemVgLCB5ID0gcHJvZHVjdGlvbikpICsgCiAgZ2VvbV9wb2ludCgpICsgCiAgbGFicyh4ID0gIkJvZHkgU2l6ZSBFZmZlY3QiLAogICAgICAgeSA9ICJQcm9kdWN0aW9uIEVmZmVjdCIpICsgCiAgdGhlbWVfbWF0dChiYXNlX3NpemUgPSAxOCkKYGBgCgoKYGBge3IgRjAtcHJvZHVjdGlvbiwgZmlnLmhlaWdodD0xMSwgZmlnLndpZHRoPTh9CkYwX2ZlY3VuZGl0eV9wbG90CmBgYAoKYGBge3IgRjAtZHVyYXRpb24tZWZmZWN0cywgZmlnLndpZHRoPTgsIGZpZy5oZWlnaHQ9OH0KI0VmZmVjdCBvZiBoZWF0d2F2ZSBkdXJhdGlvbiBXSVRISU4gdHJlYXRtZW50CkYwX2R1cl9zdW1tYXJ5ICU+JSAKICBtdXRhdGUobW9udGggPSBmY3RfcmVsZXZlbChtb250aCwgYygiSnVuZSIsICJBdWd1c3QiLCAiTm92ZW1iZXIiKSkpICU+JSAKICBnZ3Bsb3QoYWVzKHggPSBtb250aCwgZmlsbCA9IHRyZWF0bWVudCwgeSA9IGRpZmZlcmVuY2UpKSArIAogIGdlb21fYmFyKHN0YXQgPSAiaWRlbnRpdHkiLCBwb3NpdGlvbiA9IHBvc2l0aW9uX2RvZGdlKHdpZHRoID0gMC45KSwgY29sb3VyID0gImJsYWNrIiwgc2l6ZSA9IDEpICsgCiAgZ2VvbV9lcnJvcmJhcihhZXMoeW1pbiA9IGJjYV9jaV9sb3csIHltYXggPSBiY2FfY2lfaGlnaCksCiAgICAgICAgICAgICAgICB3aWR0aCA9IDAuMSwgc2l6ZSA9IDEsCiAgICAgICAgICAgICAgICBwb3NpdGlvbiA9IHBvc2l0aW9uX2RvZGdlKHdpZHRoID0gMC45KSkgKyAKICBnZW9tX2hsaW5lKHlpbnRlcmNlcHQgPSAwKSArIAogIHNjYWxlX2ZpbGxfbWFudWFsKHZhbHVlcyA9IGMoImdyZXkzMCIsICJ3aGl0ZSIpKSArIAogIGxhYnMoeCA9ICIiLAogICAgICAgeSA9ICJFZmZlY3QgU2l6ZSAoSGVkZ2UncyBnKSBcbiBMb25nIC0gU2hvcnQgZXZlbnRzIikgKyAKICB0aGVtZV9wdWJyKGJhc2Vfc2l6ZSA9IDE4KQpgYGAKCmBgYHtyIEYxLWR1cmF0aW9uLWVmZmVjdHMsIGZpZy53aWR0aD04LCBmaWcuaGVpZ2h0PTh9CiMgSG93IGRvZXMgaGVhdCB3YXZlIGR1cmF0aW9uIGFmZmVjdCB0cmFuc2dlbmVyYXRpb25hbCBlZmZlY3RzPyBSZWFjdGlvbiBub3JtcyBzaG93biBiZWxvdyBmb3IgZWZmZWN0IHNpemUgY29tcGFyaXNvbnMgKGhlYXR3YXZlIC0gY29udHJvbCkgZm9yIGRpZmZlcmVudCBkdXJhdGlvbiBvZiBwYXJlbnRhbCBleHBvc3VyZQpGMV9kYXRhICU+JSAKICBkcGx5cjo6c2VsZWN0KG1vbnRoLCBkdXJhdGlvbiwgb2ZmX3RlbXAsIHRyYWl0LCBkaWZmZXJlbmNlLCBiY2FfY2lfbG93LCBiY2FfY2lfaGlnaCkgJT4lIAogIG11dGF0ZSgiSUQiID0gcGFzdGUobW9udGgsIG9mZl90ZW1wLCB0cmFpdCwgc2VwID0gIl8iKSwKICAgICAgICAgbW9udGggPSBmY3RfcmVsZXZlbChtb250aCwgYygiSnVuZSIsICJBdWd1c3QiLCAiTm92ZW1iZXIiKSksCiAgICAgICAgIGR1cmF0aW9uID0gZmN0X3JlbGV2ZWwoZHVyYXRpb24sIGMoInNob3J0IiwgImxvbmciKSkpICU+JSAKICBnZ3Bsb3QoYWVzKHggPSBkdXJhdGlvbiwgeSA9IGRpZmZlcmVuY2UsIGNvbG91ciA9IG1vbnRoLCBncm91cCA9IElEKSkgKyAKICBmYWNldF93cmFwKHRyYWl0fi4pICsgCiAgZ2VvbV9obGluZSh5aW50ZXJjZXB0ID0gMCkgKyAKICBnZW9tX2xpbmUoc2l6ZSA9IDEsIHBvc2l0aW9uID0gcG9zaXRpb25fZG9kZ2Uod2lkdGggPSAwLjEpKSArIAogIGdlb21fcG9pbnQoc2l6ZSA9IDIsIHBvc2l0aW9uID0gcG9zaXRpb25fZG9kZ2Uod2lkdGggPSAwLjEpKSArIAogIGdlb21fZXJyb3JiYXIoYWVzKHltaW4gPSBiY2FfY2lfbG93LCB5bWF4ID0gYmNhX2NpX2hpZ2gpLAogICAgICAgICAgICAgICAgc2l6ZSA9IDAuNzUsIHdpZHRoID0gMC4xLAogICAgICAgICAgICAgICAgcG9zaXRpb24gPSBwb3NpdGlvbl9kb2RnZSh3aWR0aCA9IDAuMSkpICsgCiAgbGFicyh4ID0gIlBhcmVudGFsIEV4cG9zdXJlIER1cmF0aW9uIiwgCiAgICAgICB5ID0gIkVmZmVjdCBTaXplIChIZWRnZSdzIGcpIFxuIEhlYXR3YXZlIC0gQ29udHJvbCIpICsgCiAgeWxpbSgtNSw1KSArIAogIHRoZW1lX3B1YnIoYmFzZV9zaXplID0gMTgpCmBgYAoKCmBgYHtyIHNpZy1GMS1kdXJhdGlvbi1lZmZlY3RzLCBmaWcud2lkdGg9OCwgZmlnLmhlaWdodD04fQojUHVsbHMgb3V0IHJlYWN0aW9uIG5vcm1zIHdoZXJlIHRoZXJlJ3MgYSBzaWduIGNoYW5nZSAoY2hhbmdlcyBmcm9tIHBvc2l0aXZlLCBuZXV0cmFsLCBvciBuZWdhdGl2ZSBiZXR3ZWVuIGR1cmF0aW9uIGdyb3VwcykgCgpkdXJhdGlvbl9lZmZlY3RzID0gRjFfZGF0YSAlPiUgCiAgZHBseXI6OnNlbGVjdChtb250aCwgZHVyYXRpb24sIG9mZl90ZW1wLCB0cmFpdCwgZGlmZmVyZW5jZSwgYmNhX2NpX2xvdywgYmNhX2NpX2hpZ2gpICU+JSAKICBtdXRhdGUoIklEIiA9IHBhc3RlKG1vbnRoLCBvZmZfdGVtcCwgdHJhaXQsIHNlcCA9ICJfIiksCiAgICAgICAgIG1vbnRoID0gZmN0X3JlbGV2ZWwobW9udGgsIGMoIkp1bmUiLCAiQXVndXN0IiwgIk5vdmVtYmVyIikpLAogICAgICAgICBkdXJhdGlvbiA9IGZjdF9yZWxldmVsKGR1cmF0aW9uLCBjKCJzaG9ydCIsICJsb25nIikpKSAlPiUgCiAgZ3JvdXBfYnkoSUQsIHRyYWl0LCBkdXJhdGlvbikgJT4lICAKICBtdXRhdGUoInplcm9fZGlmZiIgPSBjYXNlX3doZW4oCiAgICBzaWduKGJjYV9jaV9sb3cpID09IHNpZ24oYmNhX2NpX2hpZ2gpIH4gImRvZXMgbm90IG92ZXJsYXAgemVybyIsCiAgICBzaWduKGJjYV9jaV9sb3cpICE9IHNpZ24oYmNhX2NpX2hpZ2gpIH4gIm92ZXJsYXBzIHplcm8iCiAgKSkgJT4lIAogIHVuZ3JvdXAoZHVyYXRpb24pICU+JSAKICBtdXRhdGUoImNoYW5nZSIgPSBjYXNlX3doZW4oCiAgICBzaWduKGRpZmZlcmVuY2UpWzFdID09IHNpZ24oZGlmZmVyZW5jZSlbMl0gJiB6ZXJvX2RpZmZbMV0gPT0gemVyb19kaWZmWzJdIH4gIlNhbWUiLAogICAgc2lnbihkaWZmZXJlbmNlKVsxXSAhPSBzaWduKGRpZmZlcmVuY2UpWzJdICYgemVyb19kaWZmWzFdID09ICJvdmVybGFwcyB6ZXJvIiAmIHplcm9fZGlmZlsyXSA9PSAib3ZlcmxhcHMgemVybyIgfiAiU2FtZSIsCiAgICBzaWduKGRpZmZlcmVuY2UpWzFdICE9IHNpZ24oZGlmZmVyZW5jZSlbMl0gJiB6ZXJvX2RpZmZbMV0gPT0gemVyb19kaWZmWzJdICYgemVyb19kaWZmWzFdID09ICJkb2VzIG5vdCBvdmVybGFwIHplcm8iIH4gIkRpZmZlcmVudCIsCiAgICBzaWduKGRpZmZlcmVuY2UpWzFdICE9IHNpZ24oZGlmZmVyZW5jZSlbMl0gJiB6ZXJvX2RpZmZbMV0gIT0gemVyb19kaWZmWzJdIH4gIkRpZmZlcmVudCIsCiAgICBzaWduKGRpZmZlcmVuY2UpWzFdID09IHNpZ24oZGlmZmVyZW5jZSlbMl0gJiB6ZXJvX2RpZmZbMV0gIT0gemVyb19kaWZmWzJdIH4gIkRpZmZlcmVudCIKICApKSAlPiUgCiAgYXJyYW5nZShtb250aCwgb2ZmX3RlbXAsIHRyYWl0KSAlPiUgCiAgZmlsdGVyKGNoYW5nZSA9PSAiRGlmZmVyZW50IikKCnNlbGVjdF9ybm9ybXMgPSBkdXJhdGlvbl9lZmZlY3RzICU+JSAKICBkcGx5cjo6c2VsZWN0KC1kdXJhdGlvbiwgLWRpZmZlcmVuY2UsIC1iY2FfY2lfbG93LCAtYmNhX2NpX2hpZ2gsIC1JRCwgLXplcm9fZGlmZikgJT4lIAogIGRpc3RpbmN0KCkKCnNpZ19jaGFuZ2VzID0gRjFfZGF0YSAlPiUgCiAgZHBseXI6OnNlbGVjdChtb250aCwgZHVyYXRpb24sIG9mZl90ZW1wLCB0cmFpdCwgZGlmZmVyZW5jZSwgYmNhX2NpX2xvdywgYmNhX2NpX2hpZ2gpICU+JSAKICBtdXRhdGUoIklEIiA9IHBhc3RlKG1vbnRoLCBvZmZfdGVtcCwgdHJhaXQsIHNlcCA9ICJfIiksCiAgICAgICAgIG1vbnRoID0gZmN0X3JlbGV2ZWwobW9udGgsIGMoIkp1bmUiLCAiQXVndXN0IiwgIk5vdmVtYmVyIikpLAogICAgICAgICBkdXJhdGlvbiA9IGZjdF9yZWxldmVsKGR1cmF0aW9uLCBjKCJzaG9ydCIsICJsb25nIikpKSAlPiUgCiAgZmlsdGVyKElEICVpbiUgc2VsZWN0X3Jub3JtcyRJRCkKCmdncGxvdChzaWdfY2hhbmdlcywgYWVzKHggPSBkdXJhdGlvbiwgeSA9IGRpZmZlcmVuY2UsIGNvbG91ciA9IG1vbnRoLCBncm91cCA9IElEKSkgKyAKICBmYWNldF93cmFwKHRyYWl0fi4pICsgCiAgZ2VvbV9obGluZSh5aW50ZXJjZXB0ID0gMCkgKyAKICBnZW9tX2xpbmUoc2l6ZSA9IDEsIHBvc2l0aW9uID0gcG9zaXRpb25fZG9kZ2Uod2lkdGggPSAwLjEpKSArIAogIGdlb21fcG9pbnQoc2l6ZSA9IDIsIHBvc2l0aW9uID0gcG9zaXRpb25fZG9kZ2Uod2lkdGggPSAwLjEpKSArIAogIGdlb21fZXJyb3JiYXIoYWVzKHltaW4gPSBiY2FfY2lfbG93LCB5bWF4ID0gYmNhX2NpX2hpZ2gpLAogICAgICAgICAgICAgICAgc2l6ZSA9IDAuNzUsIHdpZHRoID0gMC4xLAogICAgICAgICAgICAgICAgcG9zaXRpb24gPSBwb3NpdGlvbl9kb2RnZSh3aWR0aCA9IDAuMSkpICsgCiAgZ2VvbV9sYWJlbF9yZXBlbChkYXRhID0gc2lnX2NoYW5nZXMgJT4lIGZpbHRlcihkdXJhdGlvbiA9PSAibG9uZyIpLCAKICAgICAgICAgICAgICAgICAgIGFlcyhsYWJlbCA9IG9mZl90ZW1wLCAKICAgICAgICAgICAgICAgICAgICAgICB4ID0gZHVyYXRpb24sCiAgICAgICAgICAgICAgICAgICAgICAgeSA9IGRpZmZlcmVuY2UsIAogICAgICAgICAgICAgICAgICAgICAgIGNvbG9yID0gbW9udGgpLAogICAgICAgICAgICAgICAgICAgYm94LnBhZGRpbmcgPSAwLjUsCiAgICAgICAgICAgICAgICAgICBudWRnZV94ID0gMC4yLAogICAgICAgICAgICAgICAgICAgc2l6ZSA9IDcsCiAgICAgICAgICAgICAgICAgICBzaG93LmxlZ2VuZD1GQUxTRSkgKyAKICBsYWJzKHggPSAiUGFyZW50YWwgRXhwb3N1cmUgRHVyYXRpb24iLCAKICAgICAgIHkgPSAiRWZmZWN0IFNpemUgKEhlZGdlJ3MgZylcbkhlYXR3YXZlIC0gQ29udHJvbCIpICsgCiAgeWxpbSgtNSw1KSArIAogIHRoZW1lX3B1YnIoYmFzZV9zaXplID0gMTgpCmBgYAoKCmBgYHtyfQpyZGF0YSA9IGZpbGVfbGlzdFtzdHJfZGV0ZWN0KGZpbGVfbGlzdCwgcGF0dGVybiA9ICIuUkRhdGEiKV0KZjFfZGF0YSA9IHJkYXRhW3N0cl9kZXRlY3QocmRhdGEsIHBhdHRlcm4gPSAiRjBfIiwgbmVnYXRlID0gVCldICU+JSAKICBzdHJfc3BsaXRfZml4ZWQocGF0dGVybiA9ICIuUkRhdGEiLCBuID0gMikKZjFfZGF0YSA9IGYxX2RhdGFbLDFdCgpwbG90X25hbWVzID0gYygpCmZvcihpIGluIDE6bGVuZ3RoKGYxX2RhdGEpKXsKICBwbG90X25hbWUgPSBwYXN0ZShmMV9kYXRhW2ldLCAiX3Bsb3QiLCBzZXAgPSAiIikKICBwbG90X25hbWVzID0gYyhwbG90X25hbWVzLCBwbG90X25hbWUpCiAgbWV0cmljID0gc3RyX3NwbGl0X2ZpeGVkKHBsb3RfbmFtZSwgcGF0dGVybiA9ICJfIiwgbiA9IDQpWywyXQogIAogIGlmKG1ldHJpYyA9PSAidG90YWwiKXsKICAgIGxhYmVsID0gIkVnZyBQcm9kdWN0aW9uIChwZXIgZmVtYWxlKSIKICB9CiAgCiAgaWYobWV0cmljID09ICJyZiIpewogICAgbGFiZWwgPSAiUHJvZHVjdGlvbiAocGVyIGZlbWFsZSkiCiAgfQogIAogIGlmKG1ldHJpYyA9PSAiaHMiKXsKICAgIGxhYmVsID0gIkhhdGNoaW5nIFN1Y2Nlc3MgKCUpIgogIH0KICAKICBpZihtZXRyaWMgPT0gImJzIil7CiAgICBsYWJlbCA9ICJCb2R5IFNpemUgKG1tKSIKICB9CiAgCiAgYXNzaWduKHBsb3RfbmFtZSwKICAgICAgICAgcGxvdChnZXQoZjFfZGF0YVtpXSksIAogICAgICAgICAgICAgIGVmZnNpemUubWFya2Vyc2l6ZSA9IDIsCiAgICAgICAgICAgICAgYXhlcy50aXRsZS5mb250c2l6ZSA9IDksCiAgICAgICAgICAgICAgdGljay5mb250c2l6ZSA9IDYsCiAgICAgICAgICAgICAgc3dhcm1wbG90LnBhcmFtcyA9IHBhcmFtX2xpc3QsCiAgICAgICAgICAgICAgcmF3cGxvdC55bGFiZWwgPSBsYWJlbCwKICAgICAgICAgICAgICB0aGVtZSA9IGdncHVicjo6dGhlbWVfcHVicigpKSkKfQoKYnNfcGxvdHMgPSBwbG90X25hbWVzW3N0cl9kZXRlY3QocGxvdF9uYW1lcywgcGF0dGVybiA9ICJfYnNfIildCnJmX3Bsb3RzID0gcGxvdF9uYW1lc1tzdHJfZGV0ZWN0KHBsb3RfbmFtZXMsIHBhdHRlcm4gPSAiX3JmXyIpXQp0b3RhbF9wbG90cyA9IHBsb3RfbmFtZXNbc3RyX2RldGVjdChwbG90X25hbWVzLCBwYXR0ZXJuID0gIl90b3RhbF8iKV0KaHNfcGxvdHMgPSBwbG90X25hbWVzW3N0cl9kZXRlY3QocGxvdF9uYW1lcywgcGF0dGVybiA9ICJfaHNfIildCmBgYAoKYGBge3IgRjEtYm9keS1zaXplLWVmZi1wbG90cywgZmlnLmhlaWdodD0xMSwgZmlnLndpZHRoPTh9CmdnYXJyYW5nZShKdW5lX2JzX3Nob3J0X3Bsb3QsIEp1bmVfYnNfbG9uZ19wbG90LCAKICAgICAgICAgIEF1Z3VzdF9ic19zaG9ydF9wbG90LCBBdWd1c3RfYnNfbG9uZ19wbG90LAogICAgICAgICAgTm92ZW1iZXJfYnNfc2hvcnRfcGxvdCwgTm92ZW1iZXJfYnNfbG9uZ19wbG90LAogICAgICAgICAgbmNvbCA9IDIsIG5yb3cgPSAzLAogICAgICAgICAgbGFiZWxzID0gIkFVVE8iLAogICAgICAgICAgdmp1c3QgPSAtMC4yKQpgYGAKCmBgYHtyIEYxLXRvdGFsLWVwci1lZmYtcGxvdHMsIGZpZy5oZWlnaHQ9MTEsIGZpZy53aWR0aD04fQpnZ2FycmFuZ2UoSnVuZV90b3RhbF9zaG9ydF9wbG90LCBKdW5lX3RvdGFsX2xvbmdfcGxvdCwgCiAgICAgICAgICBBdWd1c3RfdG90YWxfc2hvcnRfcGxvdCwgQXVndXN0X3RvdGFsX2xvbmdfcGxvdCwKICAgICAgICAgIE5vdmVtYmVyX3RvdGFsX3Nob3J0X3Bsb3QsIE5vdmVtYmVyX3RvdGFsX2xvbmdfcGxvdCwKICAgICAgICAgIG5jb2wgPSAyLCBucm93ID0gMywKICAgICAgICAgIGxhYmVscyA9ICJBVVRPIiwKICAgICAgICAgIHZqdXN0ID0gLTAuMikKYGBgCgpgYGB7ciBGMS1oYXRjaGluZy1zdWNjZXNzLWVmZi1wbG90cywgZmlnLmhlaWdodD0xMSwgZmlnLndpZHRoPTh9CmdnYXJyYW5nZShKdW5lX2hzX3Nob3J0X3Bsb3QsIEp1bmVfaHNfbG9uZ19wbG90LCAKICAgICAgICAgIEF1Z3VzdF9oc19zaG9ydF9wbG90LCBBdWd1c3RfaHNfbG9uZ19wbG90LAogICAgICAgICAgTm92ZW1iZXJfaHNfc2hvcnRfcGxvdCwgTm92ZW1iZXJfaHNfbG9uZ19wbG90LAogICAgICAgICAgbmNvbCA9IDIsIG5yb3cgPSAzLAogICAgICAgICAgbGFiZWxzID0gIkFVVE8iLAogICAgICAgICAgdmp1c3QgPSAtMC4yKQpgYGAKCmBgYHtyIEYxLXByb2R1Y3Rpb24tZWZmLXBsb3RzLCBmaWcuaGVpZ2h0PTExLCBmaWcud2lkdGg9OH0KZ2dhcnJhbmdlKEp1bmVfcmZfc2hvcnRfcGxvdCwgSnVuZV9yZl9sb25nX3Bsb3QsIAogICAgICAgICAgQXVndXN0X3JmX3Nob3J0X3Bsb3QsIEF1Z3VzdF9yZl9sb25nX3Bsb3QsCiAgICAgICAgICBOb3ZlbWJlcl9yZl9zaG9ydF9wbG90LCBOb3ZlbWJlcl9yZl9sb25nX3Bsb3QsCiAgICAgICAgICBuY29sID0gMiwgbnJvdyA9IDMsCiAgICAgICAgICBsYWJlbHMgPSAiQVVUTyIsCiAgICAgICAgICB2anVzdCA9IC0wLjIpCmBgYAoKYGBge3IgRjEtYm9keS1zaXplLXZzLXRlbXBlcmF0dXJlfQpzZWFzb25hbF9jb2xzID0gYygiSnVuZSIgPSAiI0U2OUYwMCIsICJBdWd1c3QiID0gIiNENTVFMDAiLCAiTm92ZW1iZXIiID0gIiMwMDcyQjIiKQpGMV9mYnMkSUQgPSBwYXN0ZShGMV9mYnMkTW9udGgsIEYxX2ZicyRQYXJlbnRhbF90cmVhdG1lbnQsIEYxX2ZicyREYXksIHNlcCA9ICJfIikKRjFfZmJzJE1vbnRoID0gZmN0X3JlbGV2ZWwoRjFfZmJzJE1vbnRoLCAiSnVuZSIsICJBdWd1c3QiLCAiTm92ZW1iZXIiKQoKZ2dwbG90KEYxX2ZicywgYWVzKHggPSBPZmZzcHJpbmdfdGVtcCwgeSA9IFNpemUsIGNvbG91ciA9IERheSwgZ3JvdXAgPSBJRCkpICsgCiAgZmFjZXRfZ3JpZChNb250aH5QYXJlbnRhbF90cmVhdG1lbnQpICsgCiAgZ2VvbV9qaXR0ZXIod2lkdGggPSAwLjUsIHNpemUgPSAxLjYsIGFscGhhID0gMC40KSArCiAgZ2VvbV9zbW9vdGgobWV0aG9kID0gImxtIiwgc2l6ZSA9IDEuNCwgYWxwaGEgPSAwLjIpICsgCiAgc2NhbGVfeF9jb250aW51b3VzKGJyZWFrcyA9IGMoMTIsMTcsMjIpKSArIAogIHRoZW1lX2J3KCkgKyB0aGVtZShsZWdlbmQucG9zaXRpb24gPSAicmlnaHQiLAogICAgICAgICAgICAgICAgICAgICBwYW5lbC5ncmlkID0gZWxlbWVudF9ibGFuaygpKQpgYGAK